Turbo Pascal исправьте меня что не так

[виталик66]

дана матрица А(N,N) вещественных значений.Упорядочить по убыванию элементы каждой диагонали,параллельной побочной

var m:array [1..10,1..10] of real;
v: array [1..10] of real;
i,j,k,l,imax:byte;
t:real;

begin
writeln ('BBEDuTE EJIEMEHTbI MATPuII,bI');
for i:=1 to n do
for j:=1 to m do
begin
write ('BBEDuTE [',i,j.']-u EJIEMEHT MATPuII,bI');
readln(a[i,j]);
end;

for i:=2 to 9 do begin
for j:=1 to i do v[j]:=m[j,i-j+1];
for k:=1 to i-1 do begin
imax:=k;
for l:=k to i do
if v[l]>v[imax] then imax:=i;
t:=v[k]; v[k]:=v[imax]; v[imax]:=t;
end;
for j:=1 to i do m[j.i-j+1]:=v[j];
end;
writeln('BbIBOD MATPuII,bI a(n*m)');
for i:=1 to n do
begin
for j:=1 to m do
writeln(a[i,j]);
end;