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

Var

a, b, c, d:integer;

p: integer;

begin

writeln ('Введите первое число:');

readln (a);

writeln ('Введите второе число:');

readln (b);

writeln ('Введите третье число:');

readln (c);

writeln ('Введите четвёртое число:');

readln (d);

if a>b then

writeln ('1 число больше 2');

if a
writeln ('1 меньше 2');

if b>c then

writeln ('2 число больше 3');

if b
writeln ('2 меньше 3');

if c>d then

writeln ('3 число больше 4');

if c
writeln ('3 меньше 4');

if c>d then

writeln ('4 число больше 1');

end.