Даны переменные A,B,C,D найти MAX и MIN надобно текст для паскаля

program zz1;

var a, b, c, d, max, min:integer; //задаем переменные целого типа

begin

write( введите 1-ое число );  // вводим с клавиатуры первое число

read(a);  

write( введите 2-ое число );  // вводим с клавиатуры 2-ое число

read(b);

write( введите третье число );  // вводим с клавиатуры третье число

read(c);

write( введите 4-ое число );  // вводим с клавиатуры 4-ое число

read(d);

if (agt;b)and(agt;c)and(agt;d) then max:=a;

if (bgt;a)and(bgt;c)and(bgt;d) then max:=b;

if (cgt;b)and(cgt;a)and(cgt;d) then max:=c;

if (dgt;b)and(dgt;c)and(dgt;a) then max:=d;

if (alt;b)and(alt;c)and(alt;d) then min:=a;

if (blt;a)and(blt;c)and(blt;d) then min:=b;

if (clt;b)and(clt;a)and(clt;d) then min:=c;

if (dlt;b)and(dlt;c)and(dlt;a) then min:=d;

writeln( наибольшее = , max);  // выводим ответ

write( минимальное = , min);

end.