Помогите, пожалуйста, составить программу!!! Паскаль. 1. Из строки символов удалить самое длинное слово (тема: строковые и символьные величины).

var st: string;      i,begs,ind,maxs: integer; begin   write('задайте строку:  ');   readln(st);   begs:=1;  maxs:=1;   for i:=1 to Length(st) do    begin     if st[i]=chr(32) then     begin       if maxs<(i-begs) then       begin         maxs:=i-begs;         ind:=begs;       end;       begs:=i+1;     end;   end;   Delete(st,ind,maxs);   writeln('новая строка:  ',st); end.