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

Var i, j : integer;
begin
    for i := 1 to 10 do begin
        for j := 1 to 10 do begin
            write(i * j);
            if (j = 10) then writeln()
            else write(' ');
        end;
    end;
end.