написать код в лазарусесоставьте программку определения большего из трех чисел

var a,b,c,max:integer;
begin
readln(a,b,c);
if agt;=b then max:=a else max:=b;
if cgt;max then max:=c;
writeln('max = ',max);
end.

Пример:
15 48 34
max = 48

Var  a, b, c, max: real;
begin  writeln('Введите 1-ое число: ');  readln(a);  writeln('Введите второе число: ');  readln(b);  writeln('Введите третье число: ');  readln(c);  max := 0;  if a gt;= max then max := a;  if b gt;= max then max := b;  if c gt;= max then max := c;  writeln('Наибольшее число: ', max);end.