Форум АНТИЧАТ - Показать сообщение отдельно

Код:

if (k=1) then
begin
     clrscr;
     setcolor(10);
     settextstyle(3,0,8);
     outtextxy(150,200,'CONGRATS! Udav fucked the rabbit! ');
     delay(1000);
end;

немного код переписать и поставить после слов until ((keypressed) or (k=1)) и в самом начале программы k:=0; . А на место того кода при выполнении условия k:=1; У тебя даже если зайчика поймали, он продолжит рисовать поверх надписи о победе.
Так же тебе надо синхронизировать передвижение зайца и удава. А то у тебя удав делает полный круг и заяц делает ход. Может хотя бы разбить те 4 цикла на 4 функции. Передвижение по нижней планке ,левой правой, верхней. И вызывать по определённому условию