Написать игру PacMan

inText := Regex.Replace(text,'\W[ ]+', ' ');
    arrSl := inText.Split(new char[1](' '), StringSplitOptions.RemoveEmptyEntries);
    lenSl := arrSl.Length;
    if (lenSl = 0) then begin writeln('Текст не загружен!'); exit end;

for var i:=1 to n do

uses crt, graphABC , Events, system.Collections.Generic;
type mas=array [1..18,1..38] of char;
Eretic = class
private
s:string;
dol:integer;
public
Constructor Create(s:string; dol:integer);
begin
self.s:=s;
self.dol:=dol;
end;
end;
var a: mas;
    pi,pj, gi, gj, ti,tj: byte;
    dol: integer;
    n: string;
    
     
function Filename: string;
var v: byte;
begin
v:=1;
SetFontColor(clRED); SetFontSize(12); 
         textout(2, 40,'Задача: набрать очки и избежать встречи с невидимым противником');
 
SetFontColor(clBlue);
repeat
writeln('1-начать игру (файл лабиринта должен находится на диске C)');
writeln('2-выход');
until v in [1..2];
readln(v);
case v of
1:  Filename:='C:\1.txt';
2:   halt
end;
ClearWindow;
clrscr;
end;
 
procedure ReadMap;
var f: text;
i, j: byte;
begin
assign(f,Filename);
reset(f);
 
for i:=1 to 9 do
    begin
    for j:=1 to 19 do
        begin
        read(f,a[i,j]);
        if a[i,j]=' ' then
           a[i,j]:='.';
        a[18-i,j]:=a[i,j];
        a[18-i,38-j]:=a[i,j];
        a[i,38-j]:=a[i,j];
        end;
    readln(f);
       end;
     close(f);
 
end;
 
 
 
procedure Fruit(var z: mas);
var g1,g2: byte;
begin
repeat
g1:=random(15)+1; g2:=random(35)+1;
until (a[g1,g2]<>'|') and (a[g1,g2]<>'-');
a[g1,g2]:=chr(random(5)+48);
end;
 
 
procedure DrawMap;
var
i, j: byte;
begin
for i:=1 to 18 do
    begin
    for j:=1 to 38 do
        begin
        setpencolor(clwhite);
        setbrushcolor(clwhite);
        if a[i,j]='.'
           then  setbrushcolor(clskyblue);
        if (a[i,j]='-') or (a[i,j]='|')
           then setbrushcolor(clblack);
        if a[i,j]='1'
           then setbrushcolor(clyellow);
        if a[i,j]='2'
           then setbrushcolor(clblue);
        if a[i,j]='3'
           then setbrushcolor(clmaroon);
        if a[i,j]='4'
           then setbrushcolor(clfuchsia);
        rectangle(j*10,i*10,j*10+10,i*10+10);
        if a[i,j]='5'
           then setbrushcolor(clOrangeRed);
        rectangle(j*10,i*10,j*10+10,i*10+10);
        end;
    end;
setbrushcolor(clred);
rectangle(pj*10,pi*10,pj*10+10,pi*10+10);
setbrushcolor(clwhite);
rectangle(gj*10,gi*10,gj*10+10,gi*10+10);
rectangle(tj*10,ti*10,tj*10+10,ti*10+10);
end;
procedure Enemu(var t: mas);
var b:boolean;   u:byte; 
begin
  
    b:=false;           
      repeat
       u:=random(4);
      case u of
      0:  begin
       if (gj>2) and not
        (a[gi,gj-1] in ['-','|']) 
      then begin b:=true;gj:=gj-1; 
        end; end;
        1: begin
        if (gj<38) and not
        (a[gi,gj+1] in['-', '|'])
          then begin b:=true; gj:=gj+1; 
        end; end;
        2: begin
        if (gi>2) and not
        (a[gi-1,gj] in ['-','|']) 
          then begin b:=true; gi:=gi-1; 
        end; end;
        3: begin
        if (gi<38) and not
        (a[gi+1,gj] in ['-','|']) 
          then begin b:=true;  gi:=gi+1; 
        end; end;
        end; until b;  end; 
        
        procedure Enemur(var a: mas);
var b:boolean;   u:byte; 
begin
  
    b:=false;           
      repeat
       u:=random(4);
      case u of
      0:  begin
       if (tj>2) and not
        (a[ti,tj-1] in ['-','|']) 
      then begin b:=true;tj:=tj-1; 
        end; end;
        1: begin
        if (tj<38) and not
        (a[ti,tj+1] in['-', '|'])
          then begin b:=true; tj:=tj+1; 
        end; end;
        2: begin
        if (ti>2) and not
        (a[ti-1,tj] in ['-','|']) 
          then begin b:=true; ti:=ti-1; 
        end; end;
        3: begin
        if (ti<38) and not
        (a[ti+1,tj] in ['-','|']) 
          then begin b:=true;  ti:=ti+1; 
        end; end;
        end; until b;  end; 
 
procedure KeyDown(Key: integer);
var s:string;
begin
SetFontSize(10); 
case Key of
VK_Left:
        begin
        if (pj>2) and
        (a[pi,pj-1]<>'-') and
        (a[pi,pj-1]<>'|') then pj:=pj-1; Enemu(a); Enemur(a);
        end;
VK_Right:
        begin
        if (pj<38) and
        ((a[pi,pj+1]<>'-') and
         (a[pi,pj+1]<>'|')) then pj:=pj+1; Enemu(a);  Enemur(a);
        end;
VK_Up:
        begin
        if (pi>2) and
        ((a[pi-1,pj]<>'-') and
         (a[pi-1,pj]<>'|')) then pi:=pi-1; Enemu(a);  Enemur(a);
        end;
VK_Down:
        begin
        if (pi<38) and
        ((a[pi+1,pj]<>'-') and
         (a[pi+1,pj]<>'|')) then pi:=pi+1; Enemu(a);  Enemur(a);
        end;
  end;
DrawMap;
setbrushcolor(clwhite);
if a[pi,pj]='.' then
   begin
   inc(dol);
   a[pi,pj]:=' ';
   end;
if a[pi,pj]='1' then
   begin
   inc(dol,8);
   a[pi,pj]:=' ';
   Fruit(a);
   end;
if a[pi,pj]='2' then
   begin
   a[pi,pj]:=' ';
   inc(dol,12);
   Fruit(a);
   end;
if a[pi,pj]='3' then
   begin
   a[pi,pj]:=' ';
   inc(dol,18);
   Fruit(a);
   end;
if a[pi,pj]='4' then
   begin
   a[pi,pj]:=' ';
   inc(dol,24);
   Fruit(a);
   end;
if a[pi,pj]='5' then
   begin
   a[pi,pj]:=' ';
   inc(dol,30);
   Fruit(a);
   end;
   if (pi=gi) and (pj=gj) or (pi=gi+1) and (pj=gj) or (pi=gi) and (pj=gj+1)or (pi=gi-1) and (pj=gj)or (pi=gi) and (pj=gj-1)  then
   begin
   ClearWindow; SetFontColor(clRed); SetBrushColor(clBlack);  FillCircle(240,55,50);  SetBrushColor(clWhite); FillCircle(240,55,25); textout(197, 50,'Вы проиграли');  sleep(5000);
  CloseWindow;
 
    end;
    if (pi=ti) and (pj=tj) or (pi=ti+1) and (pj=tj) or (pi=ti) and (pj=tj+1)or (pi=ti-1) and (pj=tj)or (pi=ti) and (pj=tj-1) then begin
   ClearWindow; SetFontColor(clRed); SetBrushColor(clBlack);  FillCircle(240,55,50);  SetBrushColor(clWhite); FillCircle(240,55,25); textout(197, 50,'Вы проиграли'); sleep(5000);
  CloseWindow;
 
    end;
if dol<250  then begin
 
 
s:=inttostr(dol);
 
s:='Вы собрали '+s+' очков';  n:='Для победы нужно набрать 250 очков ';
textout(400,50,s); textout(400,100,n);  end
else begin ClearWindow; SetFontColor(clRED); SetBrushColor(clGreen); FillCircle(240,55,50); textout(200, 50,'Вы выиграли!');  sleep(5000);
  CloseWindow;
 
 
 end
end;
 
begin
hidecursor;
pi:=2; pj:=2;
gi:=16; gj:=2; 
ti:=2; tj:=17;
ReadMap;
Fruit(a);
DrawMap;
OnKeyDown:=KeyDown
end.