Кодовая таблица, не могу понять

[Altana]

Кодовая таблица, не могу понять

Задали задачу: выводить кодовую таблицу по 10 символов, спрашивая продолжать ли дальше.
Создала программу, в которой при вводе с клавиатуры любого символа выводится код.. вот:
Program pr1;
Uses CRT;
var i,n:integer;
c:char;
Begin
ClrScr;
Repeat
c:=readkey;
n:=ord(c);
write(c,'=',n,' ');
Until n=27;
Readln;
End.

27-это Esc.. т.е ввожу символы, пока не нажму Esc.. А вот как по 10 символов выводить да ещё и спрашивать..вот этого понять не могу.. Пожалуйста помогите..:tehnari_ru_837:

 

[Vladimir_S]

А вот как по 10 символов выводить да ещё и спрашивать..вот этого понять не могу..

Например, так:

Uses CRT;
var
 i,n,j:integer;
 c,YN:char;
Begin
 ClrScr;
 j:=0;
 Repeat
  Inc(j);
  c:=readkey;
  n:=ord(c);
  write(c,'=',n,' ');
  If j=10 then
   begin
    j:=0;
    Writeln;
    Write('Next line (Y/N)? ');
    YN:=Readkey;
    If (YN='N') or (YN='n') then n:=27
    else
     begin
      GotoXY(1,WhereY);
      Write('                ');
      GotoXY(1,WhereY);
     end;
   end;
 Until n=27;
 Writeln;
 Writeln('Press "Enter" to quit');
 Readln;
End.

И, на будущее, - у нас не принято цепляться к чужим темам.

P.S. Немножко еще подправил - чтобы надпись запроса "исчезала".