{
-     navysPlat – navýšení platu zaměstnancům s platem ve stanoveném intervalu o určitá procenta z původního platu
-     seradPodlePlatu – seřazení zaměstnanců podle výše platu (od nejvyššího)

tyhle veci to neumi :D
}

uses crt;

type tDatum = record
       Den: 1..31;
       Mesic: 1..12;
       Rok : 1930..2050;
       end;

     tZamestnanec = record
       jmeno : string[20];
       prijmeni : string[30];
       datumzamestnani : tdatum;
       pohlavi : boolean;
       plat : real;
       end;

     tEvidenceZamestnancu = array[1..200] of tZamestnanec;

var pocetZamestnancu:integer;
    EvidenceZamestnancu:tEvidenceZamestnancu;

procedure nactiUdajeZamestnancu(pocetZamestnancu:integer; var EvidenceZamestnancu:tEvidenceZamestnancu);
  var i:integer;
      pohlavi:string;
  begin
    for i:=1 to pocetZamestnancu do
      begin
        write('  Zadej jmeno: ');
         readln(EvidenceZamestnancu[i].jmeno);
        write('  Zadej prijmeni: ');
         readln(EvidenceZamestnancu[i].prijmeni);
        writeln('  Zadej datum zamestnani');
         write('   Den: ');
          readln(EvidenceZamestnancu[i].datumzamestnani.den);
         write('   Mesic: ');
          readln(EvidenceZamestnancu[i].datumzamestnani.mesic);
         write('   Rok: ');
          readln(EvidenceZamestnancu[i].datumzamestnani.rok);
        write('  Zadej pohlavi: ');
         readln(pohlavi);
           if pohlavi='muz' then EvidenceZamestnancu[i].pohlavi:=true
             else EvidenceZamestnancu[i].pohlavi:=false;
        write('  Zadej plat: ');
         readln(EvidenceZamestnancu[i].plat);
       writeln;
      end;
  end;

procedure vypisUdajeZamestnancu(pocetZamestnancu: integer; EvidenceZamestnancu:tEvidenceZamestnancu);
  var i:integer;
  begin
    for i:=1 to pocetZamestnancu do
      begin
        writeln('Zamestnanec #',i);
        writeln('  Jmeno: ',EvidenceZamestnancu[i].jmeno);
        writeln('  Prijmeni: ',EvidenceZamestnancu[i].prijmeni);
        writeln('  Datum zamestnani: ',EvidenceZamestnancu[i].datumzamestnani.den,'.',EvidenceZamestnancu[i].datumzamestnani.mesic,'.',EvidenceZamestnancu[i].datumzamestnani.rok);
        write('  Pohlavi: ');
         if EvidenceZamestnancu[i].pohlavi=true then writeln('Muz')
           else writeln('Zena');
        writeln('  Plat: ',EvidenceZamestnancu[i].plat:0:3);
      end;
  end;

begin
  clrscr;
  write('Zadej pocet zamestnancu: ');
  readln(pocetZamestnancu);
  nactiUdajeZamestnancu(pocetZamestnancu, EvidenceZamestnancu);
  vypisUdajeZamestnancu(pocetZamestnancu, EvidenceZamestnancu);
readln;
end.