большая просьба напишите программку паскаль (сопоставить 4чисел)

Var
a, b, c, d:integer;
p: integer;
begin
writeln('Введите 1-ое число:');
readln(a);
writeln('Введите 2-ое число:');
readln(b);
writeln('Введите третье число:');
readln(c);
writeln('Введите четвёртое число:');
readln(d);
if agt;b then
writeln('1 число больше 2');
if alt;b then
writeln('1 меньше 2');
if bgt;c then
writeln('2 число больше 3');
if blt;c then
writeln('2 меньше 3');
if cgt;d then
writeln('3 число больше 4');
if clt;d then
writeln('3 меньше 4');
if cgt;d then
writeln('4 число больше 1');
end.