Двумерный массив

[Ole4ka)]

Ребят, надежда только на Вас!) Дана задача: Дан двумерный массив, содержащий 4 строки и З столбца. Элементами массива являются целые числа. Просуммировать элементы нечетных строк заданного массива. Уменьшить каждый элемент исходного массива на полученное значение. Результат получить в другом массиве.

[Филантроп]

var
 a,b:array[1..4,1..3] of integer;
 s,i,j:integer;
 begin
 s:=0;
 for i:=1 to 4 do begin
 for j:=1 to 3 do begin
 a[i,j]:=random(21)-10;
 if odd(i) then s:=s+a[i,j];
 write(a[i,j]:4);end;
 writeln;end;
 writeln('========================');
 for i:=1 to 4 do begin
 for j:=1 to 3 do begin
 b[i,j]:=a[i,j]-s;
 write(b[i,j]:4);end;
 writeln;end;
 readln;
 end.