Как сделать чтобы за головой двигалось и туловище. Игра змейка, вот мой код)

uses crt;
 
procedure ramka; //рамка
var
  x,y,dx,dy:integer;
begin
  x:=1;y:=1;
  repeat
    gotoxy(x,y);
    if (x=119) and (y=1) then begin
      dx:=0; dy:=1; end;
    if (y=30) and (x=119) then begin
      dx:=-1; dy:=0; end;
    if (x=1) and (y=30) then begin
      dx:=0; dy:=-1; end;
    if (y=1) and (x=1) then begin
      dx:=1; dy:=0; end;
    x:=x+dx;
    y:=y+dy;
    write('x');
  until (x=1) and (y=1);
 
end;
 
procedure move; //движение ,ooooo@
var
  x,y,dx,dy,time:integer;
  l:char;
begin
  x:=60; y:=15;time:=150;
 
  repeat
   gotoXY(x,y);
    write(',ooooo@');
    delay(time);
    textcolor(0);
    gotoXY(x,y);
    write(',ooooo@');
    textcolor(15);
 
    if keypressed then l:=readkey; //управление @ с клавиатуры
    if ((l='8') or (l='w')) then y:=y-1;
    if ((l='6') or (l='d')) then x:=x+1;
    if ((l='2') or (l='s')) then y:=y+1;
    if ((l='4') or (l='a')) then x:=x-1;
    
     until l=' ';
end;
begin
  ramka;
  move
end.