Обработка нескольких нажатий клавиатуры и отрисовка объекта отдельно!

[Lorem]

Добрый вечер! Вот решил освоить графику на примере Pascal вопрос!
Имеется код:
как обрабатывать нажатие двух кнопок одновременно? например для передвижения человечка по диагонали вверх и влево??

Спс за внимание!)

uses Graph,Crt;
var
  gd,gm: integer;
  f,z:string[2];
  x,y,dx,dy,r: integer;
  
  
begin
  Randomize;
  ClrScr;
	window(100,100, 200, 200);
  gd:=9;
  gm:=2;
  initGraph(gd,gm,'');
writeln('bla bla');
x:=GetMaxX div 2; y:=GetMaxY div 2;
MoveTo(x,y);
r:=8;

while f<>#27 do

begin
f:=readkey;
z:=#0;
if f=#0 then
z:=readkey;
if f=#120 then
setcolor(random(14));

if z=#72 then y:=y-5;
if z=#80 then y:=y+5;
if z=#75 then x:=x-5;
if z=#77 then x:=x+5;


ClearViewPort;
MoveTo(x,y);
		setcolor(12);
        Circle(x,y,r);
		Line(x,y+r,x,y+r+25);
		Line(x,y+r+8,x+2*r,y+r);
		Line(x,y+r+8,x-2*r,y+r);
		Line(x,y+r+25,x+2*r,y+2*r+25);
		Line(x,y+r+25,x-2*r,y+2*r+25);
if f = 'a' then
begin
ClearViewPort;
MoveTo(x,y);
end;
	end;

  closeGraph;
 end.