[AVaTaPA]

var
st,st1,st2 : shortstring;
stdop,slmax : shortstring;
n,i,kol,nmax:byte;

begin
writeln ('input string st=');
readln (st);
st1:=st;
stdop:=' ';
nmax:=0;
for i:=1 to length(st1)-1 do
if (st[i]<>' ') and (st[i+1]<>'.') then stdop:=stdop+st[i]
else
begin
if length(stdop)>nmax then
begin
nmax:= length(stdop);
slmax:= stdop;
end;
end;
writeln('the longest word', slmax:3);
writeln ('number of letters in this word =',nmax:3);

readln;

end.

это поиск самого длинного слова

а как найти слово с 2мя последн одинаковыми буквами я хз ((