не могу сделать

[spat]

Я недавно начал изучать MP, решил написать первое приложение, смысл- на экране картинка, нажимаешь 4 появляется другая, отпускаешь опять первая, так же и с 6 кой.что не так:

program NewProject;
begin
drawImage(loadImage('/kartinka1.png'), 0, 0);
repaint;

while getKeyClicked = KE_NONE do
begin end;
while getKeyPressed <> KE_KEY4 do
begin
drawImage(loadImage('/kartinka2.png'), 0, 0);
repaint;
while getKeyClicked = KE_NONE do
begin end;
end;
while getKeyPressed <> KE_KEY6 do
begin
drawImage(loadImage('/kartinka3.png'), 0, 0);
repaint;
while getKeyClicked = KE_NONE do
begin end;
end;
end.

[pax]

Попробуй так:

program NewProject;
var
 *keyCode: integer; 

begin 

 *repeat 
 * *keyCode := GetKeyPressed;
 * *SetColor(255, 255, 255);
 * *FillRect(0, 0, GetWidth, GetHeight);

 * *if *keyCode = KE_NONE *then drawImage(loadImage('/kartinka1.png'), 0, 0); 
 * *if *keyCode = KE_KEY4 *then drawImage(loadImage('/kartinka2.png'), 0, 0); 
 * *if *keyCode = KE_KEY6 *then drawImage(loadImage('/kartinka3.png'), 0, 0);

 * 
 * *Repaint; 
 *until (keyCode = KE_KEY0) or (KeyToAction(keyCode) = GA_FIRE);
 
end.

[spat]

спасибо, теперь работает.