Заполнить таблицу нулями — Pascal(Паскаль)

uses crt;

var
  x, y, xx, yy: integer;

begin;
  clrscr;
  writeln('Введите размер таблицы x и y через Enter');
  readln(x);
  readln(y);
  clrscr;
  FOR xx := 1 TO x do
  begin
    FOR yy := 1 TO y do
    begin
      gotoxy(yy, xx);
      writeln('0');
    end;
  end;

end.