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

var s: string;
j, i, k, l, max, a, b: integer;
 
begin
read (s);
insert (' ', S, length(s)+1);
l:=0;
for j:=1 to length(s) do
begin
         if (s[j]=' ') then
            begin
             k:=j;
             if (k-l>max) then
             begin
                 a:=l;
                 b:=k;
                 max:=b-a;
             end;
             l:=j;
             end;
 
end;
for i:=a+1 to b-1 do
begin
    write (s[i]);
end;
end.

uses crt;
var s: string;
    j, i, k, l, max, a, b: 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;//добавим пробел в начало строки
l:=0;//начало слова
for j:=1 to length(s) do
 begin
  if (s[j]=' ') then
   begin
    k:=j;//конец слова
    if (k-l>=max) then//если их разность больше или равно макс
                      //(так находим последнее)
     begin
      a:=l; //запомним начало
      b:=k; //и конец
      max:=b-a;//новый макс
     end;
    l:=j;//новое начало
   end;
 end;
writeln('Последнее самое длинное слово:');
for i:=a+1 to b-1 do //выводим макс от начала до конца
write (s[i]);
readln
end.

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.