Ошибка, выводит нули, что неправильно? Опции

[Гость_Caries]

Вот программа, суть - задается нижнетругольная матрица р-ра 7 на 7, далее ее нужно зеркально отобразить в матрицу b р-ра 7 на 7 и вывести. Но при выводе выводит почему-то одни нули. Подскажите пожалуйста что не так?

Код

program matrix;
var a:array[1..7,1..7] of Integer;
n:integer; b : array[1..7,1..7] of Integer; i,j:integer;
begin
n:=7;
for i:=1 to n do
begin
 for j:=1 to i do
  read(a[i,j]);
end;
for j:=1 to n do
begin
 for i:=1 to j do
  a[i,j]:=0;
 end;
for i:=1 to n do
begin
 for j:=1 to i do
  a[i,j]:=b[j,i];
end;
for i:=1 to n do
begin
 for j:=1 to n do
  write(b[i,j]:4);
 end;
writeln
end.

НЕ ЗАБЫВАЕМ ВКЛЮЧАТЬ КОД В ТЕГИ!

Сообщение отредактировано: APAL - 9.11.2004 20:55