procedure Tperson.Sort_stat(var pp: Tdata; col: integer);
{col - количество записей в массиве}
var
  i, j, min: integer;
  buf, buf1: string;
  buf2: real;
begin
  for i:= 0 to col - 1 do
    begin
      { поиск минимального элемента в части массива}
      min:= i;
      for j:= i + 1 to col - 1 do
        if pp[j].Zarpl < pp[min].Zarpl then
          min:= j;
        { поменяем местами pp[min] и pp[i] }
        buf:= pp[i].Famil;
        buf1:= pp[i].Dolgn;
        buf2:= pp[i].Zarpl;
        pp[i].Famil:= pp[min].Famil;
        pp[i].Dolgn:= pp[min].Dolgn;
        pp[i].Zarpl:= pp[min].Zarpl;
        pp[min].Famil:= buf;
        pp[min].Dolgn:= buf1;
        pp[min].Zarpl:= buf2;
    end;
end;