Помогите решить задачу на массив Опции

[teac2011]

найти сумму положительных элементов указанного столбца двумерного массива. Транспонировать данную матрицу. Элементы главной диагонали заменить нулями

[zmeiko]

найти сумму положительных элементов указанного столбца двумерного массива. Транспонировать данную матрицу. Элементы главной диагонали заменить нулями

не знаю помог или нет, учусь в школе поэтому может неправильно понял слово "Транспонировать" ,
поэтому сделал матрицу квадратной
program Z1;
procedure writearr(arr:array of array of integer);
var
i,j:integer;
begin
for i:=0 to length(arr)-1 do
begin
for j:=0 to length(arr[0])-1 do
write(arr[i,j]:4);//write(arr[i,j]:4);
writeln;
end;
end;
var
Arr,b:array of array of integer;
a,be:integer;
i,j,sum:integer;
begin
write('Размеры массива: ');
readln(a);
be:=a;
setlength(arr,a);
for i:=0 to a-1 do
setlength(arr[i],be);
for i:=0 to length(arr)-1 do
for j:=0 to length(arr[i])-1 do
arr[i,j]:=50-random(100);
writearr(arr);
write('Столбец: ');
readln(a);
for i:=0 to length(arr)-1 do
if arr[i,a-1]>=0 then sum:=sum+arr[i,a-1];
writeln('Сумма положительный элементов ',a,' столбца = ',sum);
setlength(b,length(arr[0]));
for i:=0 to length(arr[0])-1 do
setlength(b[i],length(arr));
for i:=0 to length(arr)-1 do
for j:=0 to length(arr[i])-1 do
b[j,i]:=arr[i,j];
setlength(arr,length(b));
for i:=0 to length(arr)-1 do
setlength(arr[i],length(b[i]));
arr:=b;
writeln;
for i:=0 to length(arr)-1 do
for j:=0 to length(arr[i])-1 do
if i=j then
arr[i,j]:=0;
writearr(arr);

end.