Вывести в виду столбцов и строк таблицу умножения В ПАСКАЛЕ!!!

var i,k:integer;
begin
for i:=1 to 9 do
begin
for k:=1 to 9 do
write(i*k:4);
writeln;
end;
end.