Задача на строки Опции

[AlonZo]

Задача такая: найти наиболее часто встречающуюся букву в конце слов и эти слова вывести на экран.
Не использовать процедуры и функции, буду благодарен за помощь.

[volvo]

Так пойдет?

var
  s: string;
  were, all: string;
  i: integer;

begin
  s := 'this is a very simple test...';
  were := ''; all := '';

  for i := 1 to length(s) do begin
    if pos(s[i], were) = 0 then begin
      were := were + s[i];
      all := all + s[i];
    end
    else delete(all, pos(s[i], all), 1);
  end;

  writeln('s = ', s, ' -> ', all);
end.