Delphi. Массивы

[Len4i]{]

задана квадратная матрица . Поменять местами строку с максимальным элементом на главной диагонали со строкой с заданным номером m

[Len4i]{]

ребят помогите. вот код программы. что не так?
n:=StrToInt(Edit1.Text);
m:=StrToInt(Edit2.Text);
randomize;
c:='';
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(81)-30;
c:=c+IntToStr(a[i,j])+'; ';
end;
c:=c+#13;
Label3.Caption:=c;
end;
max:=a[1,1];
no1:=1;
if n<m then k:=n else k:=m;
for i:=1 to k do
if a[i,i]>max then begin
max:=a[i,i];
no1:=i;
label4.Caption:=Label4.Caption+IntT oStr(i)+'строка= '+IntToStr(max)+'; ';
end;
z:=StrToInt(Edit3.Text);
for i:=1 to n do begin
for j:=1 to m do begin
a[i,no1]:=a[z,j];
label5.Caption:=Label5.Caption+IntT oStr(a[i,j])+'; ';
end;
label5.Caption:=label5.Caption+#13;
end;

[Chudo4258]

вот это для чего?

if n<m then k:=n else k:=m;

помоему понятие главн. и побочной диагоналей отпределено только для квадратных матриц.

n:=StrToInt(Edit1.Text);
m:=StrToInt(Edit2.Text);
randomize;
c:='';
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(81)-30;
c:=c+IntToStr(a[i,j])+'; ';
end;
c:=c+#13;
Label3.Caption:=c;
end;
max:=a[1,1];
no1:=1;
if n<m then k:=n else k:=m;
for i:=1 to k do
if a[i,i]>max then begin
max:=a[i,i];
no1:=i;
label4.Caption:=Label4.Caption+IntT oStr(i)+'строка= '+IntToStr(max)+'; ';
end;
z:=StrToInt(Edit3.Text);
for i:=1 to n do begin
for j:=1 to m do begin
XXX:=a[i,no1];
a[i,no1]:=a[z,j];
a[z,j]:=XXX;
label5.Caption:=Label5.Caption+IntT oStr(a[i,j])+'; ';
end;
label5.Caption:=label5.Caption+#13;
end;