uses crt;
type 
    rec=record  // declararea tipului record
              nume:string[30];  // declararea cimpurilor, nume, post, salariu
              post:string[50];
              salariu:real;
        end; //sfirsit tipul record
var // declararea variabilelor
  a:array[1..50] of rec; {a-variabila, masiv unidimensional de tip record}
  b:rec;{ - variabila necesara pentru sortarea articolelor prin metoda buzunarului}
  i,j,n:integer;
  c:char;
  caut:string[30];  {numele care va fi cautat}
  label e1;          {eticheta de salt}
BEGIN  // inceput de program
clrscr; // curatirea ecranului
write('Cati angajati are firma? n=');readln(n); // citirea lui n de la tastatura
writeln('Culegeti de la tastatura datele despre angajati:'); // afisare text din apostrofuri
for i:=1 to n do //parcurgerea de la 1 la n executa
    begin  // inceput secventa de instructiuni
    writeln; // trecerea din rind nou
    writeln('Culegeti datele angajatului ',i); // afisarea textului din apostrofuri
// introducerea datelor de tip record de la tastatura 
write('nume=');readln(a[i].nume);
    write('post=');readln(a[i].post);
    write('salariu=');readln(a[i].salariu);
    end;
e1:  {Cautarea angajatilor dupa numele de familie}
writeln;
writeln('Culegeti de la tastatura numele unui angajat pentru cautare:');
readln(caut);
j:=0; // var j se initializeaza cu valoarea 0
for i:=1 to n do // parcurgerea de a 1 la n executa
    if(a[i].nume=caut) then j:=i; //daca numele angajatului este identic cu cel introdus mai sus, adica cel cautat atunci se de pastreaza in var j pozitia acestui angajat in lista
if(j=0) then writeln('Nu exista asa nume de angajat!')  //daca j ia valoarea 0 atunci se afiseaza textul din apostrofuri
else // in caz constrar se afiseaza datele acestui angajat cautat dupa nume
begin
writeln;
writeln('Datele angajatului cu numele ',caut,' :');
writeln('Postul ocupat: ',a[j].post);
writeln('Salariul: ',a[j].salariu:8:2);
end;
writeln;
write('Doriti sa continuati cautarea? (y/n) ');readln(c); // afisarea textului si introducerea de la tastatura a caracterului cerut de continuare sau nu
if(c='y') then goto e1; // daca caracterul c ia valoarea y , adica da se pleaca la eticheta e1 adica se executa inca o data secventa
{Aranjarea articolelor in ordine descrescatoare dupa marimea salariului}
// aplicarea metodei de aranjarea a articolelor descrescator
for i:=1 to n-1 do // parcurgerea de la 1 la n-1 executa
for j:=i+1 to n do  // parcurgerea de la i+1 la n executa

if(a[i].salariu<a[j].salariu) then 
                              begin
                              b:=a[i]; a[i]:=a[j];a[j]:=b;
                              end;
{Afisarea articolelor sortate descrescator}
writeln;
writeln('Articolele sortate descrescator:');
writeln('| Nume angajat  |  Postul Ocupat  |  Salariul  |');
for i:=1 to n do
writeln('| ',a[i].nume,'  | ',a[i].post,'  | ',a[i].salariu:8:2,' |');
readkey;
END.