проблема с файлами

program zad1;
uses crt;
 type rec=Record
      fio:string;
      voz:string;
      start:string;
      naz:string;
      vid:integer;
      och:integer;
       end;
    mas: a: array[1..50] of rec
  var rov: rec;
    a:mas;
     c:array [1..50,1..50] of integer;
     z,j,i,n:integer;
procedure penkt1(x:integer; y:integer; var d:array [1..50,1..50] of integer; var c1:array [1..50] of string);
var w,k,l:integer;
begin
for k:=1 to x do
w:=0;
begin
for l:=1 to y do
w:=w+d[k,l];
end;
writeln('áàëû ïîëó÷åííûå â îáùåì çà÷åòå',c1[i] ,'= ',w);
end;
{procedure penkt2 (x:integer; y:integer; var d:array [1..50,1..50] of integer);
var l,k,p,max:integer;
begin
for l:=1 to y do
begin
for k:=1 to x do
max:=d[1,1];
if max<d[x,y] then begin
max:=d[x,y];
p:=x;
end;
writeln ('ëèäåð â ',i,' âèäå ñïîðòà', c1[i]);
end;}{ не получается}
procedure penkt3 (x:integer; y:integer; var d:array [1..50,1..50] of integer; var c1:array [1..50] of string );
var l,k,w,max,p:integer;
    b:array [1..20] of integer;
begin
 for k:=1 to x do
w:=0;
begin
for l:=1 to y do
w:=w+d[k,l];
end;
b[k]:=w;
for k:=1 to x do begin
max:=b[1];
if max<b[k] then begin
max:=b[k];
p:=k;
end;
end;
writeln('1-îå ìåñòî çàíÿë ',ñ1[p] );
end;
 procedure penkt4 (x:integer; y:integer; var d:array [1..50,1..50] of integer);
var l,k,w,max,a:integer;
    b:array [1..20] of integer;
begin
 for k:=1 to x do
w:=0;
begin
for l:=1 to y do
w:=w+d[k,l];
end;
b[k]:=w;
for k:=1 to x do begin
max:=b[1];
if max<b[k] then
max:=b[k];
end;
for k:=1 to x do begin
min:=b[1];
if min>b[k] then min:=b[k];
end;
a:=max-min;
writeln('ðàçíèöà â î÷êàõ ìåæäó ïîñëåäíèì è ïåðâûì ìåñòîì',a );
end;
begin
writeln('ñêîëüêî ñïîðòèêîâ íà ðàéîíå ?');
readln(n);
writeln ('ñêîëüêî âèäîâ ñïîðòà');
readln(z);
for i:=1 to z do
writeln('íàçâàíèå âèäà ñïîðòà');
readln(a[i].naz);
for i:=1 to n do begin
  writeln('Ôàìèëèÿ ñïîðòèêà');
  readln(a[i].fio);
  writeln('Âîçðàñò ñïîðòèêà');
  readln(a[i].voz);
  for i:=1 to n do
    begin
  for j:=1 to z do
  writeln('ñêîëüêî î÷êîâ ïîëó÷èë ñïîðòñìåí ïî',a[i].naz);
  readln(c[i,j]);
  end;