Записи в делфи

[ttjke]

Составить массив из десяти записей следующей структуры:
• строка случайных русских строчных букв длиной 80 символов;
• массив из 32 байтов.
Строки заполнить случайным образом. Массив должен содержать количество повторений каждой буквы в строке. Вывести все данные, а также данные элемента массива с минимально встречающейся буквой А.

[Пепел Феникса]

наработки или цена?

[ttjke]

наработки=)

[IT-man]

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

наработки=)

Ну и где они-ВАШИ наработки?

[ttjke]

program Records;
{$APPTYPE CONSOLE}
uses
  SysUtils;

type
  information=record                 	// тип-запись
       z:string[80];        	// поле-80 различных прописных русских букв
       x:integer;      //поле длинной 32 бит

  end;
  Nmassiv=array of information; // тип - динамический массив символов
var
  a:Nmassiv;                    	// первоначальный массив символов
  n:Integer;                   // кол-во строк
//------- процедура  чтения файла: ----------------------------
procedure ReadFile(var a:Nmassiv; var n:integer);
var
  f:text;                   		// файловая переменная
  i:integer;                		// счетчик
begin
  AssignFile(f,'Records.txt'); // связывание файловой переменной
  Reset(f);        		// направление обмена данными-чтение
  ReadLn(f,n);      		// чтение количества элементов массива
  SetLength(a,n);   		// выделение динамической памяти под массив
  for i:=0 to n-1 do
    with a[i] do ReadLn(f,z,x); 	// чтение данных массива
  CloseFile(f);     				// закрытие файла исходных данных
end;
procedure WriteFile(a:Nmassiv; n:integer);
var
  f:text;                   	// файловая переменная
  i:integer;                	// счетчик
begin
  AssignFile(f,'Records.out');	// связывание файловой переменной
  rewrite (f);      			// направление обмена данными - запись
  writeln(f,'  80 прописных русских букв                     32 бита');
  writeln(f,'-----------------------------');
  for i:=0 to n-1 do
    with a[i] do writeln (f, z:-80,x);
  writeln(f,'---------------------------- ');
  writeln(f,'-----------------------------');
  CloseFile(f);
  Finalize(a);		// освобождение динамической памяти массива А
end;
// выполняемые операторы основной  программы
begin
    ReadFile(a,n);		// чтение данных из файла
    WriteFile(a,n); 	// вызов процедуры записи в файл
end.

как исправить ошибку и дальше я не знаю(