Получить новый массив B из массива A заменой нулей массива Опции

[swe-4a]

Почему не работает? Паскаль АВС.
Дан двумерный массив A[m,n]. Получить сумму первой строки. Получить новый массив B из массива A заменой нулей массива A на сумму первой строки. Результаты выдать на экран.

PROGRAM kr_5; 

const 
n = 3; m = 4;
var 
a,b: array[1..n, 1..m] of real; 
i: integer; 
j: integer; 
s: real; 
begin
Writeln('значение элементов матрицы:'); 
for i:=1 to n do for j:=1 to m do readln(a[i,j]); 
s:=0;
for i:=1 to 1 do
for j:=1 to m do
s:=s+a[1,j];
writeln(' = ',s:7:2);

begin

for i:=1 to n do for j:=1 to m do readln(a[i,j]); 
a [i,j]:=b[i,j];
if a[ i,j ] =0  then begin b[i,j]:=Round(S); 
writeln('massiv b', b[i,j]);
writeln; 
end; 

readln; 
end;
end.

Сообщение отредактировано: мисс_граффити - 25.01.2011 10:12