Ошибка 106 при выполнении

type mas1=array[1..100] of integer;
var a:char; m1,m2,m3:mas1; f1,f2:text; n:byte; i,b:integer;
 
begin
 
assign (f1, 'printer.in');
assign (f2, 'printer.out');
reset (f1);
rewrite (f2);
 
readln (f1, n);
 
 for i:=1 to n do
 begin
 readln (f1, a);
 m1[i]:=ord(a);
 read (f1, m2[i]);
 read (f1, m3[i]);
 end;
 
 while not eof (f1) do
 begin
 read (f1,a);
  for i:=1 to n do begin
  if ord(a)=m1[i] then b:=b+m2[i];
  if ord(a)=m1[i]-26 then b:=b+m3[i]
  end;
 end;
 
write (f2, b);
 
close (f1);
close (f2);
 
end.

5
p 5 6
t 7 8
y 9 10
a 1 2
e 3 4
Petya

type mas2=array[1..100] of integer;
type mas1=array[1..100] of char;
var d,c:char; m1,m2,m3:mas2; a:mas1; f1,f2:text; n:byte; i,b,code:integer;
 
begin
 
assign (f1, 'printer.in');
assign (f2, 'printer.out');
reset (f1);
rewrite (f2);
 
readln (f1, n);
 
 for i:=1 to n do
 begin
 read (f1, a[i]);
 m1[i]:=ord(a[i]);
 read (f1, m2[i]);
 read (f1, m3[i]);
 read (f1, a[i]);
 read (f1, a[i]);
 end;
 
 while not eof (f1) do
 begin
 read (f1,d);
  for i:=1 to n do begin
  if ord(d)=m1[i]-32 then b:=b+m3[i];
  if ord(d)=m1[i] then b:=b+m2[i];
  end;
 end;
 
write (f2, b);
 
close (f1);
close (f2);
 
end.