Untitled

type ucenik=record

     sifra,ime,datum:string;

     bodovi:integer;

     end;

var dat1,dat2,dat3,dat4,dat5:text;

    ucenici:array[1..100] of ucenik;

    pom:ucenik;

    br,i,j:integer;

 

begin

assign(dat1,'Dat1.txt');

assign(dat2,'Dat2.txt');

assign(dat3,'Dat3.txt');

assign(dat4,'Dat4.txt');

assign(dat5,'Dat5.txt');

reset(dat1);

reset(dat2);

reset(dat3);

reset(dat4);

rewrite(dat5);

br:=0;

while not eof(dat1) do

      begin

      inc(br);

      readln(dat1,ucenici[br].sifra);

      readln(dat2,ucenici[br].ime);

      readln(dat3,ucenici[br].datum);

      readln(dat4,ucenici[br].bodovi);

      end;

for i:=1 to br-1 do

    for j:=i+1 to br do

        if ucenici[i].bodovi<ucenici[j].bodovi then

           begin

           pom:=ucenici[i];

           ucenici[i]:=ucenici[j];

           ucenici[j]:=pom;

           end;

for i:=1 to br do

    writeln(dat5,ucenici[i].ime,' ',ucenici[i].bodovi);

close(dat1);

close(dat2);

close(dat3);

close(dat4);

close(dat5);

writeln('Ucenik s najvecim brojem bodova je:',ucenici[1].sifra,' ',ucenici[1].ime,' ',ucenici[1].datum,' ',ucenici[1].bodovi);

writeln('Ucenik s najmanjim brojem bodova je:',ucenici[br].sifra,' ',ucenici[br].ime,' ',ucenici[br].datum,' ',ucenici[br].bodovi);

readln;

end.