PascalABC прошу помощи по двумерным массивам

[aunt Sveta]

Не получается вывести рядом два одинаковых массива (скажем, с таблицей умножения). Задаю координаты второго (12,1). Что не так?
Вся учеба встала из-за этой мелочи.
Мой код:

program Tab_Umn;
uses crt;
var
   x,y:integer;
   p,s:array[1..9,1..9] of integer;
begin
   clrscr;
   crtwindowsize(90,30);
   for x:=1 to 9 do
      for y:=1 to 9 do
      begin
         p[x,y]:=x*y;
         gotoxy(x*4, y*2);
         write(p[x,y]);
      end;

   for x:=1 to 9 do
      for y:=1 to 9 do
      begin
         gotoxy(12,1);
         s[x,y]:=x*y;
         gotoxy(x*4, y*2);
         write(s[x,y]);
      end;
end.

[Stilet]

Так пойдет?

uses crt;
 var q,w:array[1..10,1..10] of integer; x1,x2,i,j:integer;
begin
 for i:=1 to 10 do begin
  for j:=1 to 10 do  write(q[i,j]:3);
  write('     ');
  for j:=1 to 10 do  write(w[i,j]:3);
  writeln;
 end;
readln;
end.

[aunt Sveta]

По-вашему два массива заполняются нулями. А как сделать по х от 1 до 9, по у от 1 до 9? Таблицу Пифагора как сделать? ДВЕ штуки? КАК?

[ОДИНОЧЕСТВО В СЕТИ]

{ Выводит на экран квадрат Пифагора - таблицу умножения. } var 
i,j: integer; { номер строки и столбца таблицы } 
р: integer; { произведение i на j } begin 
write('':4); { левая верхняя клетка таблицы } 
for j:=l to 10 do { первая строка - номера столбцов } write(j:4); 
writeln; 
for i:=l to 10 do 
begin 
write(i:4); { номер строки } for j:=l to 10 do { строка таблицы } 
write(i*j:4) ; writeln; end; 
readln; { чтобы результат не исчезал с экрана } end.

[aunt Sveta]

прошу прощения, вообще не то...

[Serge_Bliznykov]

кстати, aunt Sveta, попробуйте убрать строчку
crtwindowsize(90,30);

у меня нет ABCPascal, чтобы проверить.
но в обычном TP после удаления этой строчки всё отработало....

[Stilet]

aunt Sveta

Что-то ты крутишь...
Вот так пойдет?

 var q,w:array[1..10,1..10] of integer; x1,x2,i,j:integer;
begin
 for i:=1 to 10 do begin
  for j:=1 to 10 do  write((i*j):3);
  write('     ');
  for j:=1 to 10 do  write((i*j):3);
  writeln;
 end;
readln;
end.

[aunt Sveta]

Stilet -- вот теперь все океюшки, как я и хотела, только readln здесь не нужен.
Спасибо