exitcode 201

[Beerhazard]

Люди помогите пожалуйста с задачей.
Не понимаю в чем ошибка. Задача:
Найти в каждой строчке наибольшее и наименьшее значения и поместить их на место 1 и последнего соответственно(пока что без этого)
массив А(20,10) заполняется по формуле a[i,j]=(sqr(i))-i*j

program zadanie5;
const n=20;m=10;z=12;
var a:array [1..n,1..z] of real;
i,j,nom1,nom2:integer;
min,max:real;
begin
for i:=1 to n do
begin
for j:=1 to m do
a[i,j]:=((sqr(i))-(i*j));
end;
for i:=1 to n do
begin
min:=a[i,1];
for j:=2 to n do
if a[i,j]<=min then
begin
min:=a[i,j];
a[i,m+1]:=min
end;
end;
for i:=1 to n do
begin
max:=a[i,1];
for j:=2 to m do
if a[i,j]>=max then
begin
max:=a[i,j];
a[i,m+2]:=max
end;
end;
writeln ('Массив');
for i:=1 to n do
for j:=1 to m do
write ('   ',a[i,j]:1:1);writeln;
end.

при компиляции ошибок не находит
а вот во время запуска exitcode 201

З.Ы. насчет увеличения массива задумка записывать в "продолжение" массива max и min. правильно ли я это реализовал?

[lotus1994]

for i:=1 to n do
  begin
    for j:=1 to m do
      a[i,j]:=((sqr(i))-(i*j));
end;

Здесь массив не полностью заполняется

for i:=1 to n do
  begin
    for j:=1 to z do
      a[i,j]:=((sqr(i))-(i*j));
end;