Вывести на экран таблицу умножения для произвольного числа N — Pascal(Паскаль)

uses crt;
var n,i,j:integer;
begin
clrscr;
write('Poryadok tablicy n=');//на экран нормально входит до 19
readln(n);
for i:=1 to n*n do
 begin
  if i mod n=0 then write((i div n)*n:4)
  else write((i div n+1)*(i mod n):4);
  if i mod n=0 then writeln;
 end;
readln
end.