Примитивная игра "змейка" - Turbo Pascal

program snake_con;
uses crt;
type ar = array[1..50] of byte;
var sx,sy,vec : ar;
        c : char;
     n,n1,i,xe,ye,s: byte;
     f1,f2 : boolean;
procedure ramka (var s:byte); // это просто внешняя рамка
var j:byte;
begin
write('Й'); for j:=1 to 50 do write('Н'); write('Л');
        for j:=1 to 20 do write('Н'); write('»');
gotoxy(1,2); for j:=1 to 20 do writeln('є');
for j:=2 to 21 do begin gotoxy(52,j); write('є'); end;
for j:=2 to 21 do begin gotoxy(73,j); write('є'); end;
gotoxy(1,22); write('И'); for j:=1 to 50 do write('Н'); write('К');
for j:=1 to 20 do write('Н'); write('ј');
gotoxy(55,5); write('Љ®«ЁзҐбвў® ®зЄ®ў');
gotoxy(63,7); write(s);
end;
procedure sdvig(var sx, sy, vec : ar; i: byte); // вывод элемента змейки
begin
  gotoxy(sx[i],sy[i]);
                        if i=1 then write('o')
                        else begin
                                write('x');
                                vec[i]:=vec[i-1];
                                sx[i]:=sx[i-1]; // если убрать присвоение координат, то отображается, но не правильно
                                sy[i]:=sy[i-1];
                             end;
end;
 
begin
    textbackground(0);
    textcolor(10);
    clrscr;
    n:=4;
    sx[1]:=7; sy[1]:=4;  vec[1]:=1;
    sx[2]:=6; sy[2]:=4;  vec[2]:=1;
    sx[3]:=5; sy[3]:=4;  vec[3]:=1;
    sx[4]:=4; sy[4]:=4;  vec[4]:=1;
    xe:=10; ye:=10;
    ramka(s);
    window(2,2,51,20);
    f1:=true;
    f2:=true;
    while(f1) do
    begin
        clrscr;
        for i:=1 to n do
        case (vec[i]) of
                1 : begin
                       inc(sx[i]);
                       sdvig(sx,sy,vec,i);
                end;
                2 : begin
                      inc(sy[i]);
                      sdvig(sx,sy,vec,i);
 
                end;
                3 : begin
                     dec(sx[i]);
                     sdvig(sx,sy,vec,i);
                end;
                4 : begin
                        dec(sy[i]);
                        sdvig(sx,sy,vec,i);
                end;
                end;
        if keypressed then
                begin
                        c:=readkey;
                        case (ord(c)) of
                        77 : vec[1]:=1;
                        80 : vec[1]:=2;
                        75 : vec[1]:=3;
                        72 : vec[1]:=4;
                        end;
                end;
        if (sx[1]<50) and (sx[1]>2) and (sy[1]<20) and (sy[1]>2) then f1:=true
        else f1:=false;
 
        delay(100);
 
    end;
    c:=readkey;
end.