Помогите найти ошибку в Паскале

Составить рограмму для формирования и вывода двумерного массива
program qq;
uses crt;
const n=3; m=3;
var
a: array [1..n,1..m] of integer;
i, j: integer;
begin
clrscr;
for i:= 1 to n do begin
for j:= 1 to m do
readln (a[i,j]);
end;
for i:= 1 to n do begin
for i:= 1 to m do
write (a[i,j]:6, ' ');
writeln;
end;
readln;
end.

Она заускается, но выдает это