вывести на экран большее из четырёх чисел (в паскале)

Если самый прямолинейный метод, путём сопоставления каждого числа с каждым, то вот

uses crt;
var a,b,c,d:integer;
Begin
Writeln(' Введите 4 числа');
Readln(a,b,c,d);
If (agt;b) and (agt;c) and (agt;d) then
Writeln('Наивеличайшее число из данных ', a)
Else
If (bgt;a) and (bgt;c) and (bgt;d) tnen
Writeln('Величайшее число из данных ', b)
Else
If (cgt;a) and (cgt;b) and (cgt;d) then
Writeln('Наивеличайшее число из данных ', c)
Else
Writeln('Наибольшее число из данных ', d);
End.