Непонятки Опции

[scorpzx]

Здравствуйте Есть следующий код:

uses crt;
const x=30;
var zah,wibor:integer;

procedure showtext;
begin
  gotoxy(35,10);
   write('test1');
   gotoxy(35,11);
   write('test2');
   gotoxy(35,12);
   write('test3');
   gotoxy(35,13);
   write('test4');
   gotoxy(35,14);
   write('test5');
   gotoxy(35,15);
   write('test6');
end;

procedure wib;
  var posiz:integer;
  stop:boolean;
  s:integer;
  procedure showkursor;
  begin
      gotoxy(x,s); write('    ');
      gotoxy(x,posiz); write('===>');
      s:=posiz;
  end;
begin
  posiz:=16;
   repeat
     if keypressed then begin
        case readkey of
         #72:if posiz>10 then begin posiz:=posiz-1; showkursor; end;
         #80:if posiz<15 then begin posiz:=posiz+1; showkursor; end;
         #27:stop:=true;
      end;
      end;
   until stop=True;
end;

begin
  clrscr;
  showtext;
  wib;
end.

Он компилируется бес проблем на ТМТ паскале.. но при попытки откомпилировать его же на turbo pascale 7.0 он ведёт себя странно, сразу же после запуска вылетает. Я так думаю что чтото с переменными :/ Ткните пожалуйста носом что я сделал не правильно.

[-Андрей-]

Привет Всем!!!
Подскажите как в Паскале написать такую "программу" чтоб когда я нажму(допустим) на A то вместо нее чтоб выскакивал какой нить текст или то что я укажу.
Надеюсь вопрос понятен!!!
Заранее Спасибо!!!
(желательно привести пример!)

[volvo]

"программу" чтоб когда я нажму(допустим) на A то вместо нее чтоб выскакивал какой нить текст или то что я укажу.
(желательно привести пример!)

:no: Вот приведи-ка ты пример, что ты хочешь, чтобы происходило по нажатию "A". И заодно объясни, должна ли программа просто ждать, пока ты это "А" нажмешь, или выполнять какие-то действия, а при нажатии клавиши сделать то, о чем ты программу попросил?

P.S. Кстати, а почему "программа" в кавычках?