[ferget]

так примерно

Код:

for i:=1 to 3 do begin
  for j:=1 to 3 do
     write(A[i,j],' ');
  writeln;
end;