Вот вроде сделал то что ты хотел. Читай Хелп там есть ответы почти на все вопросы(кроме библиотек конечно)
program xz;
procedure cls;
begin
SetColor(255, 255, 255);
FillRect(0, 0, getWidth, getHeight);
end;
procedure gorod;
begin
SetColor(0, 0, 0);
drawtext('1 Карта', 0, 0);
drawtext('2 Карта', 0, 20);
drawtext('3 Карта', 0, 40);
repaint;
delay(5000);
end;
procedure karta;
begin
SetColor(0, 0, 0);
drawtext('Карта', 0, 0);
end;
begin
repeat
cls;
karta;
repaint;
if getKeyClicked = KE_KEY1 then
begin
cls;
gorod;
end;
until false;
end.