Пытаюсь написать программу (типа игры) в модуле CRT, но при запуске вылетает

Program vari_ous;
uses CRT;
type
  posX = array [1..25] of integer;
  posY = array [1..80] of integer;
var
  x,y,i,r,n:integer;
  ch:char;
  coorX:posX;
  coorY:posY;
label
  retry;
begin
textColor(7);
x:=0;
y:=0;
for N:=1 to 25 do
begin
x:=x+1;
  for i:=1 to 80 do
  begin
  r:=random(4);
  y:=y+1; 
  gotoxy(x,y);
    if (r=0) or (r=1) or (r=2) then
    begin
    write('.');
    end;
    if (r=3) then
    begin
    textColor(4);
    coorX[x]:=1;
    coorY[y]:=1;
    write('#');
    textColor(7);
    end;
  end;
end;
x:=1;
y:=1;
retry:
gotoxy(x,y);
ch:=readkey;
if ch = #0 then
begin
ch:=readkey;
if ch = #39 then
begin
write('.');
x:=x+1;
if (coorX[x] = 1) and (coorY[y] = 1) then
begin
x:=x-1;
goto retry;
end;
gotoxy(x,y);
textColor(15);
write('@');
textColor(7);
goto retry;
end;
if ch = #40 then
begin
write('.');
y:=y+1;
if (coorX[x] = 1) and (coorY[y] = 1) then
begin
y:=y-1;
goto retry;
end;
gotoxy(x,y);
textColor(15);
write('@');
textColor(7);
goto retry;
end;
if ch = #38 then
begin
write('.');
y:=y-1;
if (coorX[x] = 1) and (coorY[y] = 1) then
begin
y:=y+1;
goto retry;
end;
gotoxy(x,y);
textColor(15);
write('@');
textColor(7);
goto retry;
end;
if ch = #37 then
begin
write('.');
x:=x-1;
if (coorX[x] = 1) and (coorY[y] = 1) then
begin
x:=x+1;
goto retry;
end;
gotoxy(x,y);
textColor(15);
write('@');
textColor(7);
goto retry;
end;
end;
sleep(1500);
end.

x:=0;
y:=0;
for N:=1 to 25 do
 begin
  x:=x+1;
  for i:=1 to 80 do
   begin
    r:=random(4);
    y:=y+1; //y достигает 25*80=2000...........