Ввести массив слов A(N) и найти в нем максимальную по длине строку.

program p56;
  uses crt;
  const n=3;
  var a:array[1..n] of string;
      r:string;
      i,j:integer;
begin
  clrscr;
  for i:=1 to n do
    begin
      write(i,' ');readln(a[i]);
    end;
  max:=length(a[1]);
  for i:1l to n do
  if max< =length(a[i]) then
  max:=lengt(a[i]);r:=a[i];
  writeln(max,' ',r)
  readkey;
end.