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

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.