Ввести 5 чисел и найти величайшее из их.4 15 9 56

Var a,b,c,y,x,min,max:integer;
begin
writeln('Введите 1-ое число');
readln(a);
writeln('Введите 2-ое число');
readln(b);
writeln('Введите третье число');
readln(c);
writeln('Введите 4-ое число');
readln(x);
writeln('Введите 5-ое число');
readln(y);

    if a gt; b then max :=a else max :=b;
    if max lt; c then max:=c;
    if max lt; y then max:=y;
    if max lt; x then max:=x;
writeln('Максимальное число = ',max);
end.

Я плохой художник)