ДВУМЕРНЫЙ МАССИВ

[vova6161]

Задан двумерный массив Вij из 6-и строк и 3-х столбцов. Составить программу, которая организует одномерный массив, элементы которого равны элементам массива Вij , лежащим на главной диагонали (т.е. i=j), а затем сумму элементов полученного одномерного массива.
Моя нерабочая программа
program p5lr;
var
A:array[1..6,1..3] of integer;
b:array[1..3] of integer;
i,j,S:integer;
begin
for i:=1 to 6 do begin
for j:=1 to 3 do begin
a[i,j]:=random(45)-22;
write(a[i,j]:4);
end;
writeln;
end;
writeln('novui massiv');
j:=1;
for i:=1 to 3 do
begin
if i=j then
b[i]:=a[j,j];
inc(j);
write(b[i]:3);
end;
S:=0;
begin
S:=b[1]+b[2]+b[3];
writeln(' S= ',S);
end;
readln;
end.

Помогите пожайлуста

[GetMax]

Главную диагональ, как и побочную, можно выделить только в квадратной матрице(число строк = число столбцов). Так что перепешите ввод-вывод матрицы. А все остальное делается так:

for i:=1 to 6 do
Begin 
  For j:=1 to 6 do
  if i=j then b[i]:=a[i,j];
End;
For i:=1 to 6 do Write(B[i]:3);
Writeln;
S:=0;
For i:=1 to 6 do S:=S+B[i];
Writeln('S = ',S);