Динамический массив Turbo Pascal

[sanji2010]

Необходимо переделать данную программу, используя динамический массив

uses crt;
type
  myarr = array ['a'..'z'] of integer;
 
{$I-}{$R-}
procedure FindFile(var f:text; way:string);
begin
repeat
    write('Введите путь к файлу: ');
    readln(way);
    assign(f, way);
    reset(f);
    if IOresult <> 0 then
      writeln('Файл не найден, повторите ввод');
 
  until IOresult = 0;
end;
 
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 ch1:char;var maxch:integer);
var
  ch:char;
 
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, ' раз');
      ch1:=ch;
 
end;
  procedure Output(var f1:text; var ch1:char; var maxch:integer);
  begin
   write('Так же результат выведен в файл с именем OUTPUT.TXT в дерриктории E:/');
   assign(f1,'E:/output.txt');
   rewrite(f1);
   writeln(f1,'Буква ', ch1, ' встретилась ', maxch, ' раз');
   close(f1);
  end;
var
  a: myarr;
  f,f1: text;
  way:string;
  ch1:char;
  maxch:integer;
 
begin
  clrscr;
  writeln('Данная программа определяет какая буква чаще всего встречается в файле');
  FindFile(f,way);
  WorkWithfile(f, a);
  close(f);
  FindCh(a,ch1,maxch  );
  Output(f1,ch1,maxch);
  writeln('Программа закончила свою работу, нажмите любую клавишу');
  readkey;
end.

Программа считывает с файла символы и ищет чаще всего повторяющийся символ, результат выводит в файл и на экран