Ввести с клавиатуры 4 числа, найти среди них наибольшее и наименьшее. Предусмотреть вывод данных на дисплей. В Pascal ABC

PROGRAM max_and_min;vara,b,c,d,max,min:integer;BEGINwriteln('Введите 4 целых числа через пробел или Enter -> ');readln(a,b,c,d);if (a>b) then max:=a else max:=b;if (c>max) then max:=c;if (d>max) then max:=d;min:=a;if b<a then min:=b;if c<b then min:=c;if d<c then min:=d;writeln('Большее из чисел = ',max);writeln('Меньшее из чисел = ',min)END.Писал на скорую руку, но вроде всё правильно.