Для пяти введённых действительны чисел отыскать наибольшее и малое. Помогите в

Вот код:

var a,b,c,d,e,min,max:integer;

begin

Read (a,b,c,d,e);

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

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

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

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

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

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

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

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

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

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

Writeln ('Минимальное число: ',min);

Writeln ('Наибольшее число: ',max);

end.