Создать новый текст, содержащий все слова исходного текста, которые оканчиваются на ту же букву, что и слово максимальной длины pascal abc

[Enotik_1998]

Создать новый текст, содержащий все слова исходного текста, которые оканчиваются на ту же букву, что и слово максимальной длины, текст вводится пользователем. Я смог найти самое длинное слово и его последнюю букву, помогите дописать остальное. Вот исходник:

uses
  crt;
const
  dividers=[' ',',','.',';',':','-','=','+'];
var
  s,max,temp:string;
  i:integer;
begin
  clrscr;
  writeln('Введите строку...');
  readln(s);
  temp:='';
  max:='';
  for i:=1 to length(s) do
  begin
    if not (s[i] in dividers) then
      temp:=temp+s[i];
    if (s[i] in dividers) or (i=length(s)) then
      if temp<>'' then
      begin
        if length(temp)>length(max) then
          max:=temp;
        temp:='';
      end;
  end;
  writeln('Самое длинное слово: ',max,'. В нём букв: ',length(max));
  writeln('',max[length(max)]);
end.

______________________
Используйте тег [CODE] (кнопка с решеткой # в форме сообщения) при вставке кода на форум. Подробнее в FAQ

[Alex11223]

Сообщение от Enotik_1998

Я смог найти самое длинное слово и его последнюю букву, помогите дописать остальное.

Так а проблема-то в чем? На этом месте стало лень думать дальше?