Miért nem tud lefutni a programom?

program matrix;

uses crt;

var a:array [1..50,1..50] of integer;

i,j,n,m:byte;

begin

clrscr;

n:=2;

m:=3;

writeln('Kerem a sorok szamat');

readln(n);

writeln('Kerem az oszlopok szamat');

readln(m);

for i:=1 to n do

for j:=1 to m do

begin

write('a[',i,',',j,']:=');

readln(a[i,j]);

end;

for i:=1 to n do

for j:=1 to m do

begin

o:=o+a[i,j];

sz:=sz*a[i,j];

end;

writeln('A matrik elemeinek osszege:',o);

writelnÍ('A matrix elemeinek szorzata:',sz);

readln;

end.

Itt van a programom de egyszerűen nem akar lefutni azt írja ki, hogy "Error in resource file" a Tanárral is megnéztük de ő sem tudja mi a baja viszont holnap írunk belőlle de nem tudom így megtanulni...Valaki segítsen !!