Как вывести на экран... (Делфи)!!!

[Serge_Bliznykov]

DjVidan, плохо то, что Вы не понимаете, что делает эта программа... Поэтому и не можете её нормально изменить.
Вот, что делает, например, в Вашей изменённой программе вот этот оператор: READ(f, c); ???! :-(
Про отладчик, Вы, видимо, тоже не слышали ;-(

ладно. вот готовый код. разбирайтесь:

program q90010;
{$APPTYPE CONSOLE}
var
  s: string;
  a: packed array[0..255] of integer;
  c: char;
  i, m: integer;
begin
  {обнулим исходный массив, в котором считаем количество
    встреченных букв }
  for i := 0 to 255 do
    a[i] := 0;
  WriteLn('Vvedite stroku: ');
  ReadLn(s);
  for i := 1 to Length(s) do
    INC(a[ord(s[i])]); {увеличиваем счётчик встреченного символа}

  m := 0;
  for i := 0 to 255 do
    if m < a[i] then m := a[i];
  while m > 0 do
  begin
    for i := 65 to 223 do
      if (i < 91) or (i > 191) then
        if m = a[i] then WRITE(' ', CHAR(i), ':', a[i]: 5);
    m := m - 1;
  end;
  WRITELN;
  READLN;
end.

[capta1n]

for i:=1 to Length(s) do
INC(a[ord(s[i])]);
for i := 0 to 255 do
a[i] := 0;

вот тут надо думаю написать наоборот два цикла

[DjVidan]

Извеняюсь за наглость, но программа всеровно вылетает после ввода строки(((

[maladoy]

INC(a[ORD(c)]); ?

- увеличивает на 1 элемент массива А индекс которого соответствует коду встреченной буквы

[Serge_Bliznykov]

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

Извеняюсь за наглость, но программа всеровно вылетает после ввода строки(((

ну и чем в таком случае Вам можно помочь?!!
У меня всё в порядке.
Разбирайтесь...
вот, выкладываю скриншот и скомпилированную программу...


NB. и не забывайте, что в строке должны быть ПРОПИСНЫЕ БУКВЫ!