вывести на экран таблицу умножения

Ответ от Gennady[гуру]
Доброго времени суток.
Возможно уже и не надо, но все-таки... Зачем двухмерный массив из 10000 элементов? Все гораздо проще.
program MulTable;
uses
Crt;
var
i,j : Integer;
begin
ClrScr;
Write(' ');
for i:=1 to 9 do Write(i:3);
WriteLn; WriteLn;
for i:=1 to 9 do begin
Write(i);
for j:=1 to 9 do Write(i*j:3);
WriteLn;
end;
ReadLn;
end.
Это реализация для ТР, но будет работать и в консоли Delphi. Выравнивание получается за счет форматногшо вывода.
Удачи!