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

спасибо

Program n1;var s,s1,s2: string;function max(a,b,c: integer): integer;beginmax:=0;if (a>b) and (a>c) then max:=a elseif (b>c) and (b>a) then max:=b elseif (c>a) and (c>b) then max:=c;end;beginreadln(s);readln(s1);readln(s2);write(max(length(s),length(s1),length(s2))); end.