program pro1;
 
uses
  op, obrabotki;
 
var
  sv: sved;
 
begin
  assign(sv, 'lep_zar.dat');
  vvod(sv,sd);
  vivod(sv);
  sort(sv);
end.

unit obrabotki;
interface
uses op;
 
procedure vvod(var sv:sved);
procedure vivod(var sv:sved);
procedure sort(var sv:sved);
implementation
 
procedure vvod(var sv:sved);
var
  i, n: integer;
begin
  assign(sv,'lep_zar.dat');
  rewrite(sv);
 
    writeln('Введите количество регионов:');
    readln(n);
    for i := 1 to n do
                    begin
                    writeln(i, '-: ');
                    with sd do begin
                    write('Название региона: ');
                    readln(name);
                    write('Экономические показатели: ');
                    readln(pocaz);
                    write(sv, sd);
    end;
  end;
  close(sv);
end;
 
 
procedure vivod(var sv:sved);
var
  i,n: integer;
begin
  assign(sv,'lep_zar.dat');
  reset(sv);
  writeln('-----------------------------');
  writeln('Регион   ': 10, 'Экономические показатели по промышленному производству': 10);
  writeln('-----------------------------');
  while not eof(sv) do
  begin
  read(sv,sd);
  with sd do begin
    writeln(sd.name: 10, sd.pocaz: 3);
  end;
  end;
  writeln('--------------------------------');
  close(sv);
end;
 
 
procedure sort(var sv:sved);
var
i,j:integer;
temp:region;
begin
assign(sv,'lep_zar.dat');
reset(sv);
while not eof (sv) do
begin
      read(sv,sd);
      begin
        for j:=1 to maxk do
        for i:=1 to maxk -1 do
                       if (sd[i].pocaz > sd[i+1].pocaz) then
                       temp:=sd[i];
                       sd[i]:=sd[i+1];
                       sd[i+1]:=temp;
                       end;
                       end;
  WriteLn(' Average date: ',sd[i]);
 
  close(sv);
  end;
end;
end;
end.

unit op;
interface
const maxk = 10;
 
type
    region = record
    name: string[20];
    pocaz: string[5];
  end;
 
type
  sved = file of region;
  sdd = array[1..maxk] of region;
  var
  sd:sdd;
 
 
 
  
 
implementation
end.

program pro1;

uses
  op, obrab;

begin
 assign(sv, 'D:\lep_zar.dat');
 vvod;
 vivod;
 sort;
 readln
end.

unit obrab;

interface
uses op;

procedure vvod;
procedure vivod;
procedure sort;

implementation

procedure vvod;
var
 i,n: integer;
begin
 rewrite(sv);
 write('Enter the number of regions: ');
 readln(n);
 for i:= 1 to n do
  begin
   writeln(i, '-: ');
   with sd[i] do
    begin
     write('Region name: ');
     readln(name);
     write('Economical indicators: ');
     readln(pocaz);
     write(sv, sd[i]);
    end;
  end;
  close(sv);
end;


procedure vivod;
var
 sxx:region;
begin
 reset(sv);
 writeln('-----------------------------');
 writeln('Region      Industrial economical indications');
 writeln('-----------------------------');
 while not eof(sv) do
  begin
   read(sv,sxx);
   with sxx do writeln(name: 10, pocaz: 16);
  end;
 writeln('--------------------------------');
 close(sv);
end;


procedure sort;
var
 i,j,n,i_min,i_max,min,max:integer;
 temp:region;
begin
 reset(sv);
 n:=0;
 while not eof(sv) do
  begin
   Inc(n);
   read(sv,sd[n]);
  end;
 close(sv);

 for j:=1 to n-1 do
  for i:=1 to n-j do
   if sd[i].pocaz>sd[i+1].pocaz then
    begin
     temp:=sd[i];
     sd[i]:=sd[i+1];
     sd[i+1]:=temp;
    end;

 i_min:=1;
 i_max:=1;
 min:=sd[1].pocaz;
 max:=sd[1].pocaz;
 for i:=2 to n do
  begin
   if sd[n].pocaz<min then
    begin
     i_min:=n;
     min:=sd[n].pocaz;
    end;
   if sd[n].pocaz>max then
    begin
     i_max:=n;
     max:=sd[n].pocaz;
    end;
 end;

 Writeln('Sorted:');
 writeln('-----------------------------');
 writeln('Region      Industrial economical indications');
 writeln('-----------------------------');
 for i:=1 to n do
  with sd[i] do writeln(name: 10, pocaz: 16);
 writeln('--------------------------------');
 Writeln;
 Writeln('Minimal:');
 with sd[i_min] do writeln(name: 10, pocaz: 16);
 Writeln('Maximal:');
 with sd[i_max] do writeln(name: 10, pocaz: 16);
end;

end.

unit op;

interface

const maxk = 10;

type
 region = record
           name: string[20];
           pocaz: Integer;
          end;
 sved = file of region;
 sdd = array[1..maxk] of region;

var
 sd:sdd;
 sv:sved;

implementation

end.