Листание Опции

[ЮльКа)]

Как сделать в паскале листание? (например у нас 50 вагонов, а на экран помещается только 10 , вот как сделать чтобы можно было все просмотреть?)

[мисс_граффити]

{TelephatyOn}

PROCEDURE POISK;
Var  I, J : INTEGER;
      NVg : STRING;
      count: integer; {счетчик выведенных вагонов}
Begin TextColor(White);
      count:=0; {пока ничего не вывели}
      WriteLn('Введите 8-значный номер вагона: '); ReadLn(NVg);
      WriteLn('------T-------T--------T-----T--------T---------------------------------------¬');
      WriteLn('¦Поезд¦ Время ¦ Вагон# ¦Масса¦Разметка¦         Станция назначения            ¦');
      WriteLn('¦-----+-------+--------+-----+--------+---------------------------------------¦');
      For I:= 1 to Np Do
          For J:= 1 to Nv Do 
              If Mas[i][j].VagT = NVg Then 
                begin
                inc(count); {чего-то вывели}
                if (count mod 20 = 0) then {выведена порция}
                  begin
                  writeln('press any key to continue'); {просим подать признаки жизни}
                  readln; {ждем, пока чего-нибудь нажмут}
                  clrscr; {очищаем экран перед выводом новой порции}
                  end;
                TABLE( i, j );
                end;
      WriteLn('L-----+-------+--------+-----+--------+----------------------------------------');
      TextColor(GREEN);
      WriteLn; WriteLn('<Backspace> - Вернуться в меню');
      Repeat Until ReadKey = #8; MAINMENU;
End;

угадала?
прикольно так писать, не зная ни что нужно, ни что такое TABLE...
кстати, не проверяла (да и не могу я проверить), набирала прям здесь