Надо найти ошибку в программе Делфи массивы

[Rinka1]

Найти минимальные элементы каждой строки матрицы X(n x m) и поместить их на главную диагональ, а диагональные элементы записать на место минимальных.
program Project7;

{$APPTYPE CONSOLE}
Uses SysUtils,Math;

VAR m:integer;
n:integer;
a:integer;
i:integer;
j:integer;
maxi:integer;
maxj:integer;
x:array [1..10, 1..10] of integer;
begin
for i:=1 to n do
begin
maxj:=1;
For j:=2 to m do
if a[i,j]<a[i, maxj] then maxj:=j;
a[i, i]:=a[i, i]+a[i, maxj] ;
a[i, maxj]:=a[i, i]-a[i, maxj];
a[i, i]:=a[i, i]-a[i, maxj];
Writln(a);
end;
Readln;
end.

[viron]

VAR m:integer;
n:integer;
a:integer;
i:integer;
j:integer;
maxi:integer;
maxj:integer;
x:array [1..10, 1..10] of integer;
begin
for i:=1 to n do // Неизвестно чему равно n...

For j:=2 to m do // Тоже самое

Я не знаю может эти переменные в другом месте программы инициализированы.

[Xardas]

Вас тут и не поймешь... То ли половина кода сперта откуда-то, то ли еще чего... Массив объявлен как x, но в программе фигурирует как a, значения m и n, как было подмечено в предыдущем посте, не инициализированы, так же как и сам массив