Строка символов

[migrik]

Определить длину самого длинного слова, имеющегося в строке и вывести это слово.

[Mad_Cat]

{(с)bpascal.ru}
uses crt;
var i,l,max,p1,p2,j:longint;a,b:string;
    t1:array[1..60]of string[20];
    t2:array[1..60]of longint;
 begin
  clrscr;textcolor(11);
   write('input s: ');readln(a);
   l:=length(a)+1;a[l]:=' ';
   for i:=1 to l do
    if a[i]=' ' then begin
                      inc(j);t1[j]:=b;
		      t2[j]:=length(b);b:='';
		     end
	        else b:=b+a[i];
    max:=t2[1];p1:=1;
   for i:=1 to j do
    begin
     if max<t2[i] then begin max:=t2[i];p1:=i; end;
    end;
   writeln('samoe dlinnoe: ',t1[p1],' dlina=',t2[p1]);
   textcolor(13);write('P.S.');
   writeln(' Esli slovo ne vivedeno na pe4at, to vi ');
   write(' postavili neskolko podrad idushix probelov!');
  readln;
 end.

[migrik]

спасибо большое