DETECTION DU MOT LE PLUS LONG

program MotPlusLong;
var i,j,k,l,n:integer;
      text:string;
begin
writeln('entrez un text dont les mots sont seprares par des espaces :');
readln(text);
writeln;
j:=1;
i:=1;
k:=0;
l:=length(text);
while j<=l do
begin
while (i<=l)and(text[i]<>' ')and(text[i]<>'''') do i:=i+1;
if i-j>k then 
begin
k:=i-j;
n:=i;
j:=i;
end; 
j:=j+1;
i:=j;
end;
write('le mot le plus long est : ');
for i:=n-k to n-1 do write(text[i]);
readln;
end.