program Z;
{$APPTYPE CONSOLE}
uses
  SysUtils;

type
  Worker = Record
    Prizvistche : string[20];
    Imya : string[20];
    Rik : integer;
    Osvita : string[20];
    Zarplata : real;
  end;
  myfile=file of Worker;
var c1:Worker;
  arr : array [1..10] of Worker;
  i, j, n : integer;
  temp : Worker;
  f:myfile;
begin
  writeln('Input number of records');
  readln(n);
  assign(f,'1.docx');
  rewrite(f);
  writeln('Input records');
  for i := 1 to n do
    with arr[i] do begin
      writeln('Input prizvistche');
      readln(c1.Prizvistche);
      writeln('Input Imya');
      readln(c1.Imya);
      writeln('Input rik');
      readln(c1.rik);
      writeln('Input osvita');
      readln(c1.osvita);
      write(f,c1);
      end;
      close(f);
      reset(f);
      for i:=1 to n do
      read(f,arr[i]);
  for i := 1 to n do
    for j := 1 to n - i do
       if(arr[j].Prizvistche > arr[j+1]. Prizvistche) then begin
          temp := arr[j];
          arr[j] := arr[j+1];
          arr[j+1] := temp;
       end;
  writeln('         Prizvistche    Imya   Rik   Osvita      Zarplata   ');
  writeln;
  for i := 1 to n do
    with arr[i] do begin
      writeln(Prizvistche:20,' ', Imya:20,'  ', Rik:4,'      ',Osvita:10,'        ', Zarplata:6:2,'  ');
    end;