Определить, какая буква чаще всего встречается в заданном тексте (Процедуры)

[sanji2010]

Здравствуйте, я написал программу, и преподаватель сказал переделать с процедурами, без процедур работала, если не трудно, помогите найти ошибки (Pascal)

uses crt;
{$I-}
procedure WorkWithFile(var f:text; a:array of integer;var c:integer);
begin
 while not eof(f) do
    begin
     read(f,c);
     inc(a[c]);
     end;
end;
procedure FindCh(var c:integer;var maxch:integer; ch:char;var a:array of integer);
begin
    for ch:='a' to 'z' do
     if a[c]>maxch then maxch:=a[c];
    for ch:='a' to 'z' do
     if a[c]=maxch then
      writeln(' Буква ',ch,' встретилась ',a[c],' раз');
end;
var a:array ['a'..'z'] of integer; f:text;s,way:string;
c,maxch:integer;ch:char;
begin
  clrscr;
  write(' Данная программа определяет какая буква чаще всего встречается в файле');
  writeln(' file.txtкоторый находится на диске Е, для продолжения нажмите любую клавишу');
  repeat
  write(' Введите путь к файлу: ');
  readln(way);
  assign(f,way);
  reset(f);
  if IOresult<>0 then writeln('Файл не найден, повторите ввод');
    assign(f,way);
    reset(f);
  until IOresult=0;
  WorkWithfile(f,a,c);
  close(f);
   readkey;
   writeln;
   FindCh(c,maxch,ch,a);
     write(' Программа закончила свою работу, нажмите любую клавишу ...');
     readkey;
end.

P.S. Не выводит результат, хотя без процедур всё работало на ура

[BDA]

Не проверял:

uses crt;

type
  myarr = array ['a'..'z'] of integer;

{$I-}

procedure WorkWithFile(var f: text; var a: myarr);
var
  c: char;
begin
  while not eof(f) do
  begin
    read(f, c);
    inc(a[c]);
  end;
end;

procedure FindCh(const a: myarr);
var
  ch: char;
  maxch: integer;
begin
  maxch := 0;
  for ch := 'a' to 'z' do
    if a[ch] > maxch then
      maxch := a[ch];
  for ch := 'a' to 'z' do
    if a[ch] = maxch then
      writeln('Буква ', ch, ' встретилась ', maxch, ' раз');
end;

var 
  a: myarr;
  f: text;
  way: string;

begin
  clrscr;
  write('Данная программа определяет какая буква чаще всего встречается в файле');
  repeat
    write('Введите путь к файлу: ');
    readln(way);
    assign(f, way);
    reset(f);
    if IOresult <> 0 then
      writeln('Файл не найден, повторите ввод');
  until IOresult = 0;
  WorkWithfile(f, a);
  close(f);
  FindCh(a);
  write('Программа закончила свою работу, нажмите любую клавишу');
  readkey;
end.

[sanji2010]

Нет, программа так же не выводит результата, просто игнорируется процедура FindCh

[BDA]

Проверьте еще раз - дописал 1 строчку.

UPD
Пожалуйста

[sanji2010]

Да, теперь программа работает, спасибо большое, если кому понадобится, полностью рабочий код программы =)
PASCAL

uses crt;

type
  myarr = array ['a'..'z'] of integer;

{$I-}

procedure WorkWithFile(var f: text; var a: myarr);
var
  c: char;
begin
  while not eof(f) do
  begin
    read(f, c);
    inc(a[c]);
  end;
end;

procedure FindCh(const a: myarr);
var
  ch: char;
  maxch: integer;
begin
  maxch := 0;
  for ch := 'a' to 'z' do
    if a[ch] > maxch then
      maxch := a[ch];
  for ch := 'a' to 'z' do
    if a[ch] = maxch then
      writeln('Буква ', ch, ' встретилась ', maxch, ' раз');
end;

var 
  a: myarr;
  f: text;
  way: string;

begin
  clrscr;
  write('Данная программа определяет какая буква чаще всего встречается в файле');
  repeat
    write('Введите путь к файлу: ');
    readln(way);
    assign(f, way);
    reset(f);
    if IOresult <> 0 then
      writeln('Файл не найден, повторите ввод');
  until IOresult = 0;
  WorkWithfile(f, a);
  close(f);
  FindCh(a);
  write('Программа закончила свою работу, нажмите любую клавишу');
  readkey;
end.