Nhập 1 xâu, xác định từ có độ dài lớn nhất

longest_word.pas

program longest_word;
uses crt;
var s, tmp, maxstring: ansistring;
    i, maxlength: longint;
begin
 clrscr;
 write('Nhap xau: ');
 readln(s);
 while s<>'' do begin
  if pos(' ', s)<>0 then begin
   tmp:=copy(s, 1, (pos(' ', s)-1));
   delete(s, 1, pos(' ', s));
   if length(tmp)>maxlength then begin
    maxlength:=length(tmp);
    maxstring:=tmp;
   end;
  end else begin
   if length(s)>maxlength then begin
    maxlength:=length(s);
    maxstring:=s;
   end;
  s:='';
  end;
 end;
 writeln('Tu lon nhat: ', maxstring);
 write('Do dai: ', maxlength);
 readkey;
end.