Программа на массивы

program lab1;
uses crt;
var fa, fb:text;
  A_array:array[0..6] of byte;
  B_array:array[0..8] of real;
  i,j,max:integer;
const C:array[0..4,0..1] of real;
begin
clrscr;
randomize;
  Assign(fa,'D:\13-101\A.fa'),reset(fa);
  Assign(fb,'D:\13-101\A.fb'),rewrite(fb);
for i:=0 to 6 do
read(fa, A_array[i]);
 
for i:=0 to 8 do
B_array[i]:=8+random;
max:=M[1,1];
for i:=0 to 4 do
for j:=0 to 1 do
if max<M[i,j] then
max:=M[i,j];
 
writeln(fb,'Massiv A:');
 for i:=0 to 6 do
write(fb,A_array[i]:5:2);
writeln(fb,'');
writeln(fb,'Massiv B:');
 for i:=0 to 8 do
write(fb,B_array[i]:5:2);
writeln(fb,'Massiv M:');
 for i:=0 to 4 do
  begin
   for j:=0 to 1 do
   write(fb,M[i,j]:4);
   writeln(fb,'');
  end;
writeln(fb,'');
write(fb,'max=',max);
close(fa);
close(fb);
readln
end.

uses crt;
const c:array[1..5,1..2] of real=((1.2,2.3),
                                  (3.6,4.3),
                                  (5.2,2.1),
                                  (2.2,2.3),
                                  (2.4,2.5));//типизированная константа
var f,g:text;
    a:array[1..7] of integer;
    b:array[1..9] of real;
    m:integer;
    i,j:byte;
    name:string;
begin
clrscr;
randomize;
write('Имя файла для чтения: ');//вводим путь к файлу, без расширения
readln(name);
name:=name+'.txt';//фал создать в блокноте с расширением .txt
assign(f,name);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Не могу открыть файл ',name);
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
write('Имя файла для записи: ');
readln(name);
name:=name+'.txt';
assign(g,name);
rewrite(g);
for i:=1 to 7 do
read(f,a[i]);
close(f);
writeln(g,'Massiv A:');//пишем латиниций, ф файле русские буквы будут неправильно отражаться
m:=a[1];
for i:=1 to 7 do
 begin
  write(g,a[i]:5);
  if a[i]>m then m:=a[i];
 end;
writeln(g,'');//переход на новую строку в файле
writeln(g,'maximum v massive A=',m);
writeln(g,'');
writeln(g,'Massiv B:');
for i:=1 to 9 do
 begin
  b[i]:=random+1;
  write(g,b[i]:5:2);
 end;
writeln(g,'');
writeln(g,'');
writeln(g,'Massiv C:');
for i:=1 to 5 do
 begin
  for j:=1 to 2 do
  write(g,c[i,j]:5:1);
  writeln(g,'');
 end;
close(g);
write('Файл записан!');
readln
end.