Дан файл символьного типа. Распечатать коды ASC11 записанных в него символов двумя способами

var
  f: Text;
  i: integer;
  c: char;
  
begin
  Assign(f, in.txt);
  Reset(f);
  
  while not (EOF(f)) do
  begin
    read(f, c);
    writeln(c,   , ord(c));
  end;
  
  writeln(===================);
  reset(f);
  
  while not (EOF(f)) do //Второй способ, перебором получить код
  begin
    i := 0;
    read(f, c);
    repeat
      i := i + 1;
    until (chr(i) = c);
    writeln(c,   , i);
  end;
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.