Code:

program Yozh;

uses crt;

const
fx=20;
fy=10;
Wkey=#119;
Akey=#97;
Skey=#115;
Dkey=#100;
Esckey=#27;

type
fieldarray = array[1..fx, 1..fy] of integer;

var
yx, yy : integer;
ch : char;
field : fieldarray;

procedure SetField(var field : fieldarray);
var x,y : integer;
begin
for x := 1 to fx do
    for y := 1 to fy do field [x,y] := 1;
field[15,8]:=5; {food}
end;

procedure Redraw(var ch : char);
var x,y : integer;
begin
ClrScr;
for y := 1 to fy do begin
    for x := 1 to fx do begin
        if (x=fx) and (y=fy) then begin
           if (field[x,y] = 5) then ch:=Esckey;
           Write('*');
        end;
        Write('o');
        Writeln;
    end
end
end;

procedure MoveUp(var yy : integer);
begin
if (yy > 1) then yy:=(yy-1);
end;

procedure MoveDown(var yy : integer);
begin
if (yy < fy) then yy:=(yy+1);
end;

procedure MoveLeft(var yx : integer);
begin
if (yx > 1) then yx:=(yx-1);
end;

procedure MoveRight(var yx : integer);
begin
if (yx < fx) then yx:=(yx+1);
end;


begin

SetField(field);
yx:=1;
yy:=1;
Redraw(ch);
repeat
    repeat until Keypressed;
    ch := Readkey;
    case ch of
      Wkey : MoveUp(yy);
      Skey : MoveDown(yy);
      Akey : MoveLeft(yx);
      Dkey : MoveRight(yx);
      end;
    Redraw(ch);
until (ch = Esckey);
end.

Code:

program game;

{$APPTYPE CONSOLE}

uses
  crt32;

Type

Point2D = class
   x, y : integer;
end;

Type

Jivotnoe = class

   {peremennie}
   private position : Point2D;
   private face : char;

   {procedury}
   public procedure setFace( newFace : char );
   public function getFace() : char;
   public procedure setPosition( newPosition : Point2D );
   public function getPosition() : integer;
   public procedure MoveUp();
   public procedure MoveDown();
   public procedure MoveLeft();
   public procedure MoveRight();

end; {end of Jivotnoe}

procedure Jivotnoe.setFace( newFace : char );
begin
   face := newFace;
end; {End of setFace}

function Jivotnoe.getFace() : char;
begin
   getFace := face;
end; {End of getFace}

procedure Jivotnoe.setPosition( newPosition : Point2D );
begin
   position := newPosition;
end;

function Jivotnoe.getPosition() : integer;
begin
   getPosition := p;
end;

Procedure Jivotnoe.MoveUp();
begin
   ВОТ ЗДЕСЬ НУЖНО ПРОПИСАТЬ ИЗМЕНЕНИЕ "У(координаты)" На +1
end;


var
jogik : Jivotnoe;

begin

   {jogik.face = '*';}
   jogik.setFace( '*' );
   writeln( jogik.getFace() );


   readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.