Pascal ABC. Создание меню через crt.

[H4t]

Имеется код:

program menu2;
uses Crt;
const
     NORM=$17; 
     SEL=$70;  
     N=3;
var
     menu:array[1..N] of string[12];
     punkt:integer; 
     ch:char;        
     x,y:integer;    

Procedure punkt1;
begin
     ClrScr;
     writeln('Процедура 1. Нажмите <Enter> для продолжения.');
     readln;
end;

Procedure punkt2;
begin
     ClrScr;
     writeln('Процедура 1. Нажмите <Enter> для продолжения.');
     readln;
end;

Procedure MenuToScr;
var i:integer;
begin
     ClrScr;
     for i:=1 to N do begin
          GoToXY(x,y+i-1);
          write(menu[i]);
     end;
     TextAttr:=SEL;
     GoToXY(x,y+punkt-1);
     write(menu[punkt]);
     TextAttr:=NORM;
end;

begin
     menu[1]:=' Действие 1 ';
     menu[2]:=' Действие 2 ';
     menu[3]:=' Выход ';
     punkt:=1;
     x:=5;
     y:=5; TextAttr:=NORM;
     MenuToScr;
     repeat
          ch:=ReadKey;
          if ch=char(0) then begin
               ch:=ReadKey;
               case ch of
                    chr(80):
                         if punkt<N then begin
                              GoToXY(x,y+punkt-1);
                              write(menu[punkt]);
                              punkt:=punkt+1;
                              TextAttr:=SEl;
                              GoToXY(x,y+punkt-1);
                              write(menu[punkt]);
                              TextAttr:=NORM;
                         end;
                    chr(72):
                         if punkt>1 then begin
                              GoToXY(x,y+punkt-1);
                              write(menu[punkt]);
                              punkt:=punkt-1;
                              TextAttr:=SEl;
                              GoToXY(x,y+punkt-1);
                              write(menu[punkt]);
                              TextAttr:=NORM;
                         end;
                 end;
              end
          else
               if ch=chr(13) then begin 
                    case punkt of
                         1:punkt1;
                         2:punkt2;
                         3:ch:=chr(27);
                    end;
                    MenuToScr;
               end;
     until ch=chr(27);
end.

При выполнении процедуры возврат в меню происходит, но не визуально, т.е. пользователь спокойно может переключиться на другую процедуру и выполнить её, но на экране с момента вызова 1 процедуры на экране ничего не меняется. Насколько я знаю в Турбо Паскале сия проблема отсутствует..
Буду благодарен за любую помощь.

[Serge_Bliznykov]

это связано с особенностью реализации Readln в Pascal ABC

замените процедуры обработки пунктов на такие:

Procedure punkt1;
begin
     ClrScr;
     writeln('Процедура 1. Нажмите <Enter> для продолжения.');
     repeat
       ch := readkey;
     until ch=#13;
end;

Procedure punkt2;
begin
     ClrScr;
     writeln('Процедура 2. Нажмите <Enter> для продолжения.');
     repeat
       ch := readkey;
     until ch=#13;
end;
....