Меню

[Serge_Bliznykov]

    repeat
      kod:=readkey;
      if kod = #0 then kod := readkey;
    until Kod in [#13, #72, #80];
    case Kod of
    #72: begin
           if k = 1 then
             k := kil
           else
             k:=k-1;
         end;
    #80: begin
           if k = kil then
             k := 1
           else
             k:=k+1;
         end;
    end;

p.s. а вообще, если баг исправлен, правилами хорошего тона принято выкладывать исправленный код.
Он может пригодится другим Учащимся!

Да он сказал этот код не был в компиляторе он просто на комп ваше не смотрит ток в тетрадке...

Это только у меня проблемы с понимаем смысла этой фразы?!