Даны 3 разные строчки знаков. Определить самую длинную строку и выдать

Program n1;
var s,s1,s2: string;
function max(a,b,c: integer): integer;
begin
max:=0;
if (agt;b) and (agt;c) then max:=a else
if (bgt;c) and (bgt;a) then max:=b else
if (cgt;a) and (cgt;b) then max:=c;
end;
begin
readln(s);
readln(s1);
readln(s2);
write(max(length(s),length(s1),length(s2)));
end.

Var
S1,S2,S3:string;
A:integer;

Begin
Write('Введите первую строку: ');ReadLn(S1);
Write('Введите вторую строчку: ');ReadLn(S2);
Write('Введите третью строчку: ');ReadLn(S3);
A:=S1.Length;
if Alt;S2.Length then A:=S2.Length;
if Alt;S3.Length then A:=S3.Length;
WriteLn('Величайшая длина: ',A);
End.