Pascal.Ошибка переполнения массива.

[Avatonk]

Сделал программу,выдаёт ошибку перполнения массива.Не пойму что делать.
Вот задача по которой делал прогу:
Дана квадратная матрица A( в данном случае массив arr) найти все элементы равные k,заменить их на 10

program mas_siv;

const
m=20;
n=20;

var
arr: array[1..n,1..m] of longint;
k: byte;
i,j: integer;

begin
randomize;

for i := 1 to n do begin
arr[i,j] := random(10)-5;
write (arr[i,j]:3);
end;

for i := 1 to m do
if arr[i,j] = k then begin
arr[i,j] := 10;
writeln(arr[i,j]);
end;

readln;
end.

[Hacker19_90]

for i := 1 to n do begin
arr[i,j] := random(10)-5;

массив двумерный

for i := 1 to n do begin
arr[i,j] := random(10)-5;
write (arr[i,j]:3);

значения индексов после файла не определенны после цикла

[Avatonk]

Спасибо сделал, но всё равно не заменяет
Доработал-не пашет:

program mas_siv;

const
m=5;
n=5;

var
arr: array[1..n,1..m] of byte;
k: byte;
i,j: integer;

begin
randomize;
readln(k);

for i := 1 to n do begin
arr[n,m] := random(25);
write (arr[n,m]:3);
end;

for i := 1 to m do
if arr[n,m] = k then begin
arr[n,m] := 10;
writeln(arr[n,m]);
end;

readln;
end.

[Mad_Cat]

program mas_siv;
const
m=20;
n=20;
var
arr: array[1..n,1..m] of longint;
k: byte;
i,j: integer;

begin
randomize;

for i := 1 to n do begin
for j=1 to m do begin
arr[i,j] := random(10)-5;
write (arr[i,j]:3);
end;
writeln;end;
for i := 1 to m do
for j=1 to m do 
if arr[i,j] = k then begin
arr[i,j] := 10;
writeln(arr[i,j]);
end;
readln;
end.