помогите найти ошибки в программе

1.Разработать в среде Turbo Pascal программу решения взаимосвязанных задач:
a. расчет элементов квадратной матрицы A = (aij), i,j – 1,2,…,n по заданной формуле: a[i,j]=(i-j)/(i*j)*(i*j)*(i*j)
b. упорядочить элементы первых трех столбцов матрицы А по убыванию абсолютных значений;
Program zadaha;
Const r=10;
Var a: array[1..r,1..r] of real;
i,j,n,k: integer; z:real;
begin
writeln('vvedi n');
readln(n);
for i:=1 to n do
for j:=1 to n do
a[i,j]:=(i-j)/(i*j)*(i*j)*(i*j);
writeln('matriza A:');
writeln;
for i:=1 to n do
begin
for j:=1 to n do
writeln(a[i,j]:6:2,' ');
writeln;
end;
for i:=1 to n do
begin
for j:=1 to 3 do
begin
for k:=1 to n-1 do
if a[k,j]>a[k+1,j] then
begin
z:=a[k,j];
a[i,k]:=a[k+1,j];
a[k+1,j]:=z;
end;
end;
end;
writeln('otsortirovannay matriza A:');
writeln;
for i:=1 to n do
begin
for j:=1 to n do
writeln(a[i,j]:6:2,' ');
writeln;
end;
end.