Pascal/Turbo Pascal - PORFAVOR AYUDA ES URGENTE !!!

{Mira esto}

program teclado;

 uses

   crt;

  var

    cont : integer;

    p, x, y : integer;

  begin

      clrscr;

      x := 1;

      y := 1;

    for p := 0 to 254 do

    begin

       gotoxy(x,y);write(p,' ',chr(p));

       y := y + 1;

       if y > 24 then

       begin

          y := 1;

          x := x + 7;

       end;

    end;

    readkey;

  end.