Динамические переменные 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('Файл не найден, повторите ввод');
      reset(f);
  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('Так де вывод выведен в файл с именем RESULT.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.

[sanji2010]

Помогите пожалуйста

[Serge_Bliznykov]

так с чем помочь то?!
Чем (конкретно) не устраивает ваше решение?

[reflexx]

Serge_Bliznykov, +1.
ТС, с чем конкретно помочь?
Все ваши переменные объявляете как динамические, выделяете под них память, разыменовываете, когда нужно, в конце разрушаете.
На простом примере:

...
var
  i: ^Integer; //Типизированный указатель на тип Integer;
begin
  New(i); //Выделение памяти и адреса под значение переменной
  i^:=1; //Обращение к переменной через операцию разыменования 
  Write(i^); //Выводим на экран
  Dispose(i); //Разрушаем 
end.