najbolji

procedure Najbolji(ni:niz_igraca; ukI:integer);
        var gk:igrac; df:niz_igraca; mf:niz_igraca; cf:niz_igraca;
        pom:igrac;
        i,j,k:integer;
begin

gk.ocena := -1;
for k:=1 to ukI do
        if ((ni[k].pozicija=golman) AND (ni[k].ocena>gk.ocena) ) then
                begin
                    gk:=ni[k];
                end;

//zavrseno sa izborom golmana.

{ slicna je procedura za odbranu, srednji red kao i za napad, samo sto ovde imamo niz igraca
  koji sortiramo i pakujemo za formaciju 4-4-2. }
  //ovaj prvi for ide od 1-4, jer ti trebaju 4 najbolja igraca za odbranu i sredinu
  //umesto 4 mozes staviti da ti for ide do MAX_ODBRANA ili MAX_SREDINA. al radice samo ako imas isti broj igraca u odbrani i u sredini. Ako nije broj isti, onda stavis veci broj od ta dva.
  for i:=1 to 4 do
    begin
      df[i].ocena := -1;
      mf[i].ocena := -1;

      //kreces od i-tog mesta jer prvih i mesta zauzimaju vec najbolji igraci odbrane, one koje si pronasao
      //ides do (ukI-i-1) jer se na kraju nalaze najbolji igraci sredine, one koje si nasao, zbog toga neces da ides do kraja niza. jer ce se tamo vec nalaziti najbolji igraci sredine.
      for k:=i to (ukI-i-1) do
        begin
        //proveris da li je trenutni k-ti igrac u nizu bolji od odbrambenog igraca kog si nasao pre toga
        if((ni[k].pozicija=odbrana) AND (ni[k].ocena>df[i].ocena)) then
            begin
                df[i] := ni[k];
                //zamena mesta, stavljas ga na i-to mesto u nizu
                pom := ni[k];
                ni[k]:=ni[i];
                ni[i]:=pom;
            end;
        //isto samo za ove sto igraju sredinu
        if((ni[k].pozicija=sredina) AND (ni[k].ocena>mf[i].ocena)) then
            begin
                mf[i] := ni[k];
                //opet zamena mesta, al sad ne mozes stavljati na pocetak niza
                //jer se tamo nalaze odbrambeni igraci, pa cemo ove iz sredine stavljati na kraj niza
                pom := ni[k];
                ni[k]:=ni[ukI-i-1]; //-1 ide jer ako imas 30 igraca i oduzmes 1, prvog najboljeg igraca ces
                                //staviti na 29. mesto umesto na 30., da ne bi gubio to jedno mesto
                                //onda dodas jos to -1, i onda stavlja na 30. (odnosno poslednje) mesto u
                                //nizu
                ni[ukI-i-1]:=pom;
            end;

        end;
    end;

writeln('Idealan tim u formaciji 4-4-2 je: ');
writeln;
writeln('Golman: ');
writeln(gk.ime,' ',gk.prezime,' sa ocenom: ', gk.ocena);
writeln('Odbrana: ');

for i:=1 to MAX_ODBRANA do
        writeln(df[i].ime, ' ',df[i].prezime, ' ', ' sa ocenom: ',df[i].ocena);
writeln;

writeln('Sredina: ');
for i:=1 to MAX_SREDINA do
        writeln(mf[i].ime,' ',df[i].prezime,' ',' sa ocenom: ',mf[i].ocena);
writeln;

writeln('Napad: ');
for i:=1 to MAX_NAPAD do
        writeln(cf[i].ime,' ',cf[i].prezime,' ',' sa ocenom: ',cf[i].ocena);
writeln;

end;