Сортировка записей. Паскаль

[Тетрадь]

Здравствуйте. Нужно найти максимальный и минимальный элемент в "Экономические показатели" и отсортировать его по возрастанию.
Не как не могу сделать это с записями.

unit obrabotki;
interface
uses op;

//procedure vvod(var sved:svedd);
procedure vivod(var sved:svedd);
procedure sort(var sved:svedd);
implementation

{procedure vvod(var sved:svedd);
var
  i, n: integer;
  lepsved: region;
begin
  assign(sved,'lep_zar.dat');
  rewrite(sved);
//  repeat
    writeln('Введите количество регионов:');
    readln(n);
//  until n in [1..maxk];
  for i := 1 to n do
  begin
    writeln(i, '-: ');
    with lepsved do begin
      write('Название региона: ');
      readln(name);
      write('Экономические показатели: ');
      readln(pocaz);
      write(sved, lepsved);
    end;
  end;
  close(sved);
end;}


procedure vivod(var sved:svedd);
var
  i,n: integer;
  lepsved:region;
begin
  assign(sved,'lep_zar.dat');
  reset(sved);
  writeln('-----------------------------');
  writeln('Регион   ': 10, 'Экономические показатели по промышленному производству': 10);
  writeln('-----------------------------');
  while not eof(sved) do
  begin
  read(sved,lepsved);
  with lepsved do begin

    writeln(lepsved.name: 10, lepsved.pocaz: 3);

  end;
  end;
  writeln('--------------------------------');
  close(sved);
end;
procedure sort(var sved:svedd);
var q, w, i,n, n_min: integer; z, x: integer;
lepsved:region;
begin
assign(sved,'lep_zar.dat');
reset(sved);
while not eof (sved) do
begin
      read(sved,lepsved);
      begin
     n_min:=1;
	    for i:=2 to n do
	                  if lepsved.pocaz[i]>lepsved.pocaz[n_min] then  n_min:=i;
	                  writeln('Минимальный элемент массива:  ', 

  close(sved);
  end;
end;
end;
end.

unit op;

interface

const
  maxk = 10;

type
  region = record
    name: string[20];
    pocaz: string[5];
  end;
  svedd = file of region;

implementation
end.

program pro1;

uses
  op, obrabotki;

var
  sved: svedd;

begin
  assign(sved, 'lep_zar.dat');
  //vvod(sved);
  vivod(sved);
  sort(sved);
end.

Arquivo do WinRAR.rar

[Stilet]

Динамические массивы или списки использовать разрешается?
Какой паскаль?

[Тетрадь]

Паскаль ABC. Динамические массивы нельзя. Списки не знаю, не изучали

[Stilet]

Пичально... Тогда все сложно...

[Тетрадь]

Динамические теперь можно))

[Stilet]

Вау! Прям прогресс...
Ну вот если твой недопаскакаль поддерживает такое:

var a:array of region

Опиши переменку и считай ее из файла:

AssignFile(s,'файл'); reset(f);
SetLength(a,FileSize(f)); i:=0;
while not eof(svedd) do begin
 read(a[i]);
end;

Потом сортируй пузырьком массив "а".
Цикл для работы с массивом: for i:=Low(a) to High(a) do ...

Идея, то понятна?