Ошибка при выполнении задания с типом "Запись"

uses crt;
const n=10;
type anketa=record
     fio:string[30];
     age:integer;
     clas:integer;
     mat:integer;
     fis:integer;
     rus:integer;
     eng:integer;
     lit:integer;
     end;
var a: array[1..n] of anketa; i,max:integer; t:text; sr:real;
begin
clrscr;
assign(t,'study.txt');
reset(t);
for i:=1 to n do
begin
readln(t,a[i].fio);
readln(t,a[i].age);
readln(t,a[i].clas);
readln(t,a[i].mat);
readln(t,a[i].fis);
readln(t,a[i].rus);
readln(t,a[i].eng);
readln(t,a[i].lit);
end;
for i:=1 to 20 do
begin
sr:=(a[i].mat+a[i].fis+a[i].rus+a[i].eng+a[i].lit)/5;
readln(sr);
end;
end.

uses crt;
const n=10;
type zap=Record
     kod:integer;
     name:string;
     cena:byte;
     kol:integer;
     sum:integer;
     end;
var A:array[1..n] of zap; i,max:integer; t:text;
 
procedure dp;
begin
for i:=1 to n do
begin
if (a[i].kod in [100..120]) then
writeln(a[i].name,' ', a[i].cena);
end;
end;
 
procedure summ;
begin
for i:=1 to n do
begin
writeln(a[i].name,' ',a[i].sum);
end;
end;
 
procedure cen;
begin
for i:=1 to n do
begin
max:=0;
if a[i].cena > max then max:=a[i].cena;
end;
writeln(a[i].name,' ',a[i].cena);
end;
 
begin
assign(t,'abc.txt');
reset(t);
for i:=1 to n do
begin
readln(t,a[i].kod);
readln(t,a[i].name);
readln(t,a[i].cena);
readln(t,a[i].kol);
readln(t,a[i].sum);
readln(t);
end;
dp;
writeln;
 
summ;
writeln;
 
cen;
 
close(t);
end.