Program Spisok;
const n=5;
uses crt;
type zapis=record
     Fio:string[20];
     Stavka,Stazh:integer;
     end;
     Mas=array [1..n] of zapis;
     uk=^mas;
var a:mas;
    s:zapis;
    i:integer;
    z:uk;
Procedure vvod (var s:zapis;var a:mas);
begin
for i:=1 to n do begin
Writeln ('Введите фамилию');
readln (s.Fio);
writeln ('Введите стаж работы');
readln (s.Stazh);
writeln ('Введите ставку');
readln (s.Stavka);
a[i]:=s;
end;
end;
Procedure sort (var a:mas;var s:zapis);
var i:integer;
    min:string;
    beg:uk;
begin
for i:=1 to n do begin
min:=a[1];
if a[i].Fio<min then
min:=a[i].fio;