Переход по "ячейкам" матрицы

[LiaBerk]

Здравствуйте.Очень нужна помощь в одним фрагментом программы.Пишу курсач на Паскале.Именно на нём,без объектного ориентирования,следовательно не на Делфи.
Тема- граф.калькулятор.Проблема заключается в переходе между клеточками в матрице,под переходом понимаю выделение другим цветом клеточки.Само передвижение осущ-ся с помощью клавы."Вроде" перемещение работает,но не так как нужно.Т.е. первую клетку в матрице выделяет правельно, а когда с помощью стрелок перехожу на следующую, оно рисует почему то совершенно другой длины прямоугольник и в другом месте(с другими координатами).Хотя вроде все правельно прописанно.Вот эта процедура.

Procedure nav_matr;
var c,d,dx,dy:integer;
begin
PutImage(x_en,y_en,obj_m_en^,1);
x_en:=x_en+2;
y_en:=y_en+24;
c:=x_en;
d:=y_en;
dx:=0;
dy:=0;
PutImage(x_en,y_en,m_jach_en^,1);
ch:=ReadKey;
case ch of
#27: begin
PutImage(x_en,y_en,m_jach_en^,1);
x_en:=a;
y_en:=b;
PutImage(x_en,y_en,obj_m_en^,1);
obj_enable:=false;
end;
#77: begin {vpravo}
x_en:=x_en+20;
dx:=dx+20;
end;
#75: begin {vlevo}
x_en:=x_en-20;
dx:=dx-20;
end;
#72: begin {vverx}
y_en:=y_en-20;
dy:=dy-20;
end;
#80: begin {vniz}
y_en:=y_en+20;
dy:=dy+20;
end;
end;

if dx>80 then x_en:=c;
if dx<0 then x_en:=c+80;
if dy>80 then y_en:=d;
if dy<0 then y_en:=d+80;

PutImage(x_en,y_en,m_jach_en^,1);
PutImage(x_en,y_en,m_jach_en^,1);
end;