Напишите программу обретающую максимальное из 4 чисел (используйте функцию для поиска

Var
    a, b, c, d: integer;

function max(i1, i2: integer): integer;
begin
    if i1 gt; i2 then max := i1 else max := i2;
end;

begin
    read(a, b, c, d);
    writeln(max(max(max(a, b), c), d));
end.

не помню как процедуры писать, но с функциями даже удобнее

Program ufhg;
uses crt;
var a,b,c,d, m: integer;
begin 
readln(a,b,c,d);
m:=a;
if(bgt;m) then m:=b;
if(cgt;m) then m:=c;
if(dgt;m) then m:=d;
writeln(m);
end.