var i,j,iloscpracownikow:integer;
    pracownik1,pracownik2:pracownik;
    PLIK_DANYCH:file of pracownik;

begin
  reset(PLIK_DANYCH);

  iloscpracownikow:=FileSize(PLIK_DANYCH);

  for j:=iloscpracownikow downto 2 do begin
    for i:=1 to j-1 do begin
      Seek(PLIK_DANYCH, i-1);
      Read(PLIK_DANYCH, pracownik1);
      Seek(PLIK_DANYCH, i);
      Read(PLIK_DANYCH, pracownik2);
      if pracownik1.pensja < pracownik2.pensja then begin
        Seek(PLIK_DANYCH, i-1);
        Write(PLIK_DANYCH, pracownik2);
        Seek(PLIK_DANYCH, i);
        Write(PLIK_DANYCH, pracownik1);
      end;
    end;
  end;
  close(PLIK_DANYCH);
end.