В символьном файле определить символы с максимальным и минимальным кодом - Pascal ABC - Ответ 1560855

type
  fi = file of char;
 
procedure cozd(var f: fi);
var
  i: char;
begin
  rewrite(f);
  writeln('введите компоненты файла признак остановки *');
  
  read(i);
  while i <> '*' do 
  begin
    write(f, i);
    read(i);
  end;
  close(f);
end;
 
procedure print(var f: fi);
var
  i: char;
begin
  reset(f);
  while not eof(f) do 
  begin
    read(f, i);
    writeln('символ ',i, '  код- ', ord(i));
  end;
  close(f);
end;
 
function minkod(f: fi): integer;
var
  x: char; min: integer;
begin
  reset(f);
  read(f, x);
  min := ord(x);
  while not eof(f) do 
  begin
    read(f, x);
    if  min > ord(x) then 
      min := ord(x);
  end;
  minkod := min;
end;
function maxkod(f: fi): integer;
var
  x: char; max: integer;
begin
  reset(f);
  read(f, x);
  max := ord(x);
  while not eof(f) do 
  begin
    read(f, x);
    if  max<ord(x) then 
      max := ord(x);
  end;
  maxkod := max;
end;
 
 
var
  f: fi; 
  n, x, i: integer;
 
begin
  assign(f, 'cimwol.txt');
  cozd(f);
  writeln('исходный файл');
  print(f);
  writeln('минимальный код ', minkod(f));
  writeln;
  writeln('максимальный  код ', maxkod(f));
end.