Что здесь неверно? нужно найти разность большего и меньшего из трех чисел. в результате тестов обнаружилось, что при присвоении значения переменной (max или min) получается 0

Вот проверила, так работает. Нормально?

Program MaxMin;
var
   a, b, c: integer;
   max, min: integer;
begin
writeln('Введите три числа.');
read(a,b,c); {вводи числа через пробел}
max:=a;
if(b>max) then max:=b;
if(c>max) then max:=c;

min:=a;
if(b<min) then min:=b;
if(c<min) then min:=c;

writeln('Разность наибольшего и наименьшего чисел равна ',max-min);
end.