[Найти ошибку] Написать программу позволяющая перемещать букву X по сетке 6 на 6

program noob;
uses crt;
var ai,aj,i,j,x:integer;
 com:string
 mas:array [1..6,1..6] of char;
procedure move;
begin
 mas[ai,aj]:='x';
 readln(ai,aj);
end;
procedure show;
 var i,j:integer;
begin
 clrscr;
for i:=1 to 6 do
begin
for j:=1 to 6 do
 write(mas[i,j]);
writeln;
end;
end;
procedure left;
begin
mas[ai,aj]:='x';
if aj=1 then
aj:=6
else
aj:=aj-1;
mas[ai,aj]:='x';
end;
begin
procedure right;
end;
begin
procedure up;
end;
begin
procedure down;
end.
begin
ai:=2;
aj:=4;
mas[ai,aj]:='x';
show;
while com<>'quit' do
begin
readln(com);
if com='move' then
begin
move;
show;
end;
if com='left' then
end;
if com='right' then
end;
if com='up' then
if com='down' then
end;
end;
readln;
end.

uses TpCrt;
const startX=37; startY=10; n=6;
var
  w : word;
  x,y: Byte;
 
  procedure Go(a,b : integer);
  begin
    gotoxy(x,y); write(' ');
    x:=x+a; y:=y+b;
    if x>startx+n then x:=startx+n;
    if x<startx then x:=startx;
    if y>starty+n then y:=starty+n;
    if y<starty then y:=starty;
    gotoxy(x,y); write('X');
  end;
 
Begin
  clrscr; x:=startX; y:=startY;
  HiddenCursor; Go(0,0);
  repeat
    w:=readkeyword;
    case w of
    19200: Go(-1,0);
    19712: Go(1,0);
    18432: Go(0,-1);
    20480: Go(0,1);
    end;
   { writeln(w); { если не реагирует на стрелки, то раскрой скобки и проставь свои цифры, полученные тут}
  until (w=283) or (w=7181); { выход из программы Esc или Enter }
  NormalCursor;
End.

uses Crt;
const startX=37; startY=10; n=6;
var w:char;
    x,y:byte;
 
procedure Go(a,b:integer);
begin
gotoxy(x,y); write(' ');
x:=x+a; y:=y+b;
if x>startx+n then x:=startx+n;
if x<startx then x:=startx;
if y>starty+n then y:=starty+n;
if y<starty then y:=starty;
gotoxy(x,y); write('X');
end;
 
begin
clrscr;
x:=startX;
y:=startY;
Go(0,0);
repeat
 w:=readkey;
 case w of
 #75: Go(-1,0);
 #77: Go(1,0);
 #72: Go(0,-1);
 #80: Go(0,1);
 end;
until w in [#27,#13]; { выход из программы Esc или Enter }
end.