Ошибка: "ожидался конец файла". см. (*) - PascalABC.NET

Формулировка задачи:

program p5_1;
var ch:char;
    code:integer; {kod simvola}
    i,j,k:integer;
begin
 writeln('ASCII-tablica simvolov');
 code:=0;
 for k:=0 to 1 do begin
  for i:=0 to 15 do
   begin
    code:=i+128*k;
    for j:=1 to 8 do
     begin
      if ((code<7) or (code>10)) and (code<>13) then
       write(code:6,'-',' ',Chr(code):1)
       else
       write(code:6,'- ');
       code:=code+16;
       end;
       writeln;
       end;
       if k=0 then
       writeln;
       write('dlya prodolzhenia nazhmite <Enter>');
       readln;
       end;
       end;
      (*) writeln('dlya zavershenia nazhmite <Enter>');
       readln;
end.

Решение задачи: «Ошибка: "ожидался конец файла". см. (*)»

Листинг программы

program p5_1;
 
var
  ch: char;
  code: integer; {kod simvola}
  i, j, k: integer;
 
begin
  writeln('ASCII-tablica simvolov');
  code := 0;
  for k := 0 to 1 do 
  begin
    for i := 0 to 15 do
    begin
      code := i + 128 * k;
      for j := 1 to 8 do
      begin
        if ((code < 7) or (code > 10)) and (code <> 13) then
          write(code:6, '-', ' ', Chr(code):1)
        else
          write(code:6, '- ');
        code := code + 16;
      end;
      writeln;
    end;
    if k = 0 then
      writeln;
    write('dlya prodolzhenia nazhmite <Enter>');
    readln;
  end;
  writeln('dlya zavershenia nazhmite <Enter>');
  readln;
end.

Объяснение кода листинга программы

Объявлены переменные: — ch типа char; — code типа integer; — i, j, k типа integer.
Выводится ASCII-таблица символов.
Переменная code инициализируется значением 0.
Два вложенных цикла для перебора всех кодов символов от 0 до 15.
Внутри циклов коду символа добавляется 128 * k (где k — счётчик).
Ещё один вложенный цикл для перебора строк таблицы (для каждого символа выводится 8 раз).
Проверяется условие для вывода (не является пробелом, не является переносом строки и не является символом Enter).
Выводится код символа (6 символов), затем символ, затем пробел.
Код символа увеличивается на 16.
После окончания циклов выводится новая строка.
Если k = 0, выводится новая строка.
После всего выводится сообщение dlya prodolzhenia nazhmite <Enter> (нажмите Enter для продолжения).
Программа ожидает нажатия Enter.
После окончания программы выводится сообщение dlya zavershenia nazhmite <Enter> (нажмите Enter для завершения).
Программа ожидает нажатия Enter.