Определить самое длинное слово каждой строки - Pascal

var f:text;
    s,s1,sd:string;
    i,j,k,mx:integer;
begin
assign(f,'input.txt');//файл в папке с программой
reset(f);
writeln('Самые длинные слова строк');
for k:=1 to 7 do //7 строк
 begin
  readln(f,s);//читаем строку
  s:=' '+s+' '; //добавим пробелы в начало и в конец для удобства
  mx:=0;//максимальная длина слова
  i:=1;
  while i<length(s) do//идем по строке
  if (s[i]<>' ')and(s[i-1]=' ') then //если не пробел, а перед ним пробел, новое слово
   begin
    s1:='';
    j:=i;
    while(j<=length(s))and(s[j]<>' ') do //составим его
     begin
      s1:=s1+s[j];
      j:=j+1;
     end;
    if length(s1)>mx then  //если > всех предыдущих слов
     begin
      mx:=length(s1);
      sd:=s1;//новое длинное слово
     end;
    i:=i+length(s1);//перешагием через слово
   end
  else i:=i+1; //пропускаем пробелы
  writeln('строка ',k,': ', sd);
 end;
close(f);
end.