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

[AlonZo]

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

[volvo]

Ясно... 32-битные компиляторы по другому со строками работают... Опять сам же и попался на этом

Вот так работает под Turbo Pascal:

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
      if pos(s[i], all) > 0 then { <--- Вот это добавь !!! }
        delete(all, pos(s[i], all), 1);
  end;

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

[alter]

Ясно... 32-битные компиляторы по другому со строками работают... Опять сам же и попался на этом

Вот так работает под Turbo Pascal:

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
      if pos(s[i], all) > 0 then { <--- Вот это добавь !!! }
        delete(all, pos(s[i], all), 1);
  end;

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

СПС!