Viết ct nhập vào 1 xâu in ra màn hình từ dài nhất trong xâu đó

var st,kq:string;
vt,dai,min,d,i:integer;
begin
write('Nhap xau:'); readln(st);
min:=0;
st:=st+' ';
while length(st)<>0 do
begin
vt:=pos(' ',st);
dai:=vt-1;
if min<dai then

begin
min:=dai;
kq:=copy(st,1,vt-1);
d:=d+1;
end;
delete(st,1,vt);
end; d:=0;
write('Tu dai nhat trong xau la: ',kq);
readln;

end.

Viết = pascal nha

program tudainhat;
var S,Max,Tu:string;

    i:integer;

begin
 readln(S);  Tu:='';   Max:='';  S:=S+' ';
 for i:=1 to length(S) do if S[i]<>' ' then Tu:=Tu+S[i]
 else
 begin
    if length(Tu)>=length(Max) then Max:=Tu;
    Tu:='';
 end;
 writeln('Tu dai nhat la: ',Max);
 readln;
end.