Найти самое длинное слово в предложении и указать его порядковый номер. - Turbo Pascal - Ответ 5203612

uses crt;
var s: string;
    j, i, k, l, max, a, b, n, nmax: integer;
    c:char;
begin
clrscr;
//введем текст по условию
writeln('Введите текст из малых ибольших руссеих букв, слова разделенв одним пробелом.');
writeln('Окончание ввода Enter');
s:='';
repeat
c:=readkey; //читаем код символа
if c in ['А'..'я','Ё','ё',' ']then //если символ русская буква или пробел
 begin
  write(c);//выводим
  s:=s+c //добавляем в строку
 end;
if c=#13 then writeln//Enter конец ввода и на новую строку
until c=#13;
s:=s+' ';//добавим пробел в конец строки
max:=0; //максимальная длина слова
n:=0;//номер слова
l:=1;//начало слова
k:=0;//его конец
for j:=1 to length(s) do
 begin
  if (s[j]=' ') then
   begin
    n:=n+1;
    k:=j;//конец слова
    if (k-l>=max) then//если их разность больше или равно макс
                      //(так находим последнее)
     begin
      a:=l; //запомним начало
      b:=k; //и конец
      max:=b-a;//новый макс
      nmax:=n
     end;
    l:=j;//новое начало
   end;
 end;
writeln('Последнее самое длинное слово:');
for i:=a+1 to b-1 do //выводим макс от начала до конца
write (s[i]);
writeln;
write('Его номер=',nmax);
readln
end.