Viết chương trình nhập vào một xâu ký tự từ bàn phím. Tìm và in ra màn hình một từ có độ dài lớn nhất trong xâu

program bai_giai;
uses crt;
var st,s,t:string;
    i:byte;
begin
    clrscr;
    write('Nhap xau: ');  readln(st);
    s:=''; t:='';
    for i:=1 to length(st) do
        if st[i]<>' ' then t:=t+st[i]
        else
            begin
                if length(t)>length(s) then s:=t;
                t:='';
            end;
    if length(t)>length(s) then s:=t;
    write(s);
    readln;
end.

uses crt;
var max,st,k:string;
begin
    clrscr;
    readln(st);
    st:=st+' ';
    max:='';
    while pos(' ',st)<>0 do
       begin
           k:=copy(st,1,pos(' ',st));
           if length(k)>length(max) then max:=k;
           delete(st,1,pos(' ',st));
       end;
    writeln(max);
readln;
end.