rekordy (n)

program rekordy;
uses crt;
type
dziennik=record
nr : byte;
nazwisko : string[20];
ocena_polski : byte;
ocena_matematyka : byte;
ocena_mepr : byte;
srednia : real;
end;
const
n = 10;
ileWklasie = 40;
var osoba : array [1..n] of dziennik;
x,wybor,nrOsoby,iloscPrzedmiotow,a,b,ktoreMenu,coSkopiuj : byte;
procedure menu(ktoreMenu : byte);
begin
case ktoreMenu of
1:begin
writeln('1 - wypelnij danej jednej osoby');
writeln('2 - wyswietl dane jednej osoby');
writeln('3 - wyswietl dane wszystkich osob');
writeln('4 - wyswielt dane osoby o najwiekszej sredniej');
writeln('5 - wyswietl dane osoby o najmniejszej sredniej');
writeln('6 - usun rekord');
writeln('7 - Wyswietl od do...');
writeln('8 - sortuj');
writeln('9 - wyjscie');
write('Twoj wybor: ');read(wybor);end;
2:begin  end;
end;
end;
procedure wypelnijLosowo;
var y,rNr,jest : byte;
begin randomize;
for x:=1 to n do begin
REPEAT jest:=1;
rNr:=random(ileWklasie)+1;
    for y:=1 to x do begin
        if rNr=osoba[y].nr then begin jest:=0;break;end;
    end;
UNTIL jest=1;
osoba[x].Nr:=rNr;osoba[x].nazwisko:=chr(random(25)+61);
osoba[x].ocena_polski:=random(6)+1;osoba[x].ocena_matematyka:=random(6)+1;
osoba[x].ocena_mepr:=random(6)+1;
osoba[x].srednia:=(osoba[x].ocena_polski+osoba[x].ocena_matematyka+osoba[x].ocena_mepr)/3;
end;
end;
procedure jednaOsobaWpr;
var y,schowek,jest,enda : byte;
begin jest:=0;
      for x:=1 to n do begin
          if osoba[x].nr=0 then begin jest:=1;break;end;end;
          if jest=1 then begin
          write('Podaj numer osoby: ');
          readln(schowek);
          enda:=1;
              for y:=1 to n do begin
                  if osoba[y].nr=schowek then begin
                  write('Uczen o takim numerze juz istnieje (',osoba[y].nazwisko,')');
                  readkey;enda:=0;break;end;
              end;
          if enda = 1 then begin
          osoba[x].nr:=schowek;
          write('Wpisz nazwisko: ');readln(osoba[x].nazwisko);
          write('Wpisz ocene z polskiego: ');readln(osoba[x].ocena_polski);
          write('Wpisz ocene z matematyki: ');readln(osoba[x].ocena_matematyka);
          write('Wpisz ocene z mepr-u: ');readln(osoba[x].ocena_mepr);
          osoba[x].srednia:=(osoba[x].ocena_polski+osoba[x].ocena_matematyka+osoba[x].ocena_mepr)/iloscPrzedmiotow;
          write('Dodano.');delay(1500);end;
          end ELSE begin write('Dziennik zapelniony (maks: ',n,' osob)');readkey;end;
end;
procedure jednaOsobaZcz;
var jest : byte;
begin jest:=0;
write('Podaj nr osoby: ');read(nrOsoby);
for x:=1 to n do begin
    if osoba[x].nr = nrOsoby then begin
    write('Nr ',nrOsoby,' to ',osoba[x].nazwisko);
    write(' ocena z polskiego: ',osoba[x].ocena_polski);
    write(' ocena z matematyki: ',osoba[x].ocena_matematyka);
    writeln(' ocena z mepr-u: ',osoba[x].ocena_mepr);write('srednia: ',osoba[x].srednia:2:2);
    jest:=1;break;
    end;
end;if jest=0 then write('Nie ma ucznia o takim numerze.');
end; {schowek do 3(2), 7(2), 8(1)}
procedure bigSchowek(coSkopiuj : byte);
begin
case coSkopiuj of
1:begin
end;
2:begin
    write('Nr ',osoba[x].nr,' to ',osoba[x].nazwisko);
    write(' ocena z polskiego: ',osoba[x].ocena_polski);
    write(' ocena z matematyki: ',osoba[x].ocena_matematyka);
    writeln(' ocena z mepr-u: ',osoba[x].ocena_mepr);write('srednia: ',osoba[x].srednia:2:2);writeln;
end; {wypisywanie}
end;
end;
procedure wysWszystkich;
var jest : byte;
begin jest:=0;
for x:=1 to n do begin
    if osoba[x].nr<>0 then begin
    coSkopiuj:=2;bigSchowek(coSkopiuj);
    jest:=1;
    end;
end;if jest=0 then write('Pusto...');
end;
procedure najwiekszaSr;
var poz,jest : byte;
max : real;
begin jest:=0;max:=0;
for x:=1 to n do begin
    if (osoba[x].srednia>max)AND(osoba[x].srednia<>0) then begin max:=osoba[x].srednia;poz:=x;jest:=1;end;
end;
if jest = 1 then begin write('Najwieksza srednia ma nr ',osoba[poz].nr,'. (',osoba[poz].nazwisko);
write(') i wynosi ona: ',osoba[poz].srednia:2:2);end
ELSE write('Pusto...');
end;
procedure najmniejszaSr;
var poz,jest : byte;
min : real;
begin jest:=0;min:=255;
for x:=1 to n do begin
    if (osoba[x].srednia<min)AND(osoba[x].srednia<>0) then begin min:=osoba[x].srednia;poz:=x;jest:=1;end;
end;
if jest = 1 then begin write('Najmniejsza srednia ma nr ',osoba[poz].nr,'. (',osoba[poz].nazwisko);
write(') i wynosi ona: ',osoba[poz].srednia:2:2);end
ELSE write('Pusto...');
end;
procedure usunRekord;
var jest,schowekNumer : byte;
schowekNazwisko : string[20];
begin jest:=0;write('Podaj nr osoby: ');read(nrOsoby);
for x:=1 to n do begin
    if osoba[x].nr=nrOsoby then begin
       schowekNumer:=osoba[x].nr;osoba[x].nr:=0;schowekNazwisko:=osoba[x].nazwisko;
       osoba[x].nazwisko:='';osoba[x].ocena_polski:=0;
       osoba[x].ocena_matematyka:=0;osoba[x].ocena_mepr:=0;osoba[x].srednia:=0;jest:=1;
       break;
    end;
end;
if jest=0 then write('Nie ma osoby o tym numerze') ELSE begin write('Numer ',schowekNumer);
write('. (',schowekNazwisko,') zostal usuniety z dziennika');end;
end;
procedure wyswietlOdDo(a,b : byte);
begin
for x:=a to b do begin
    if osoba[x].nr<>0 then begin coSkopiuj:=2;bigSchowek(coSkopiuj);end;
end;
end;
procedure sortowanie;
begin

end;
procedure all;
begin wypelnijLosowo;
iloscPrzedmiotow:=3;
REPEAT
ktoreMenu:=1;menu(ktoreMenu);
case wybor of
1:begin jednaOsobaWpr;end;
2:begin jednaOsobaZcz;readkey;end;
3:begin wysWszystkich;readkey;end;
4:begin najwiekszaSr;readkey;end;
5:begin najmniejszaSr;readkey;end;
6:begin usunRekord;readkey;end;
7:begin
REPEAT
write('Podaj od ktorego nr indeksu: ');read(a);write('Do ktorego numeru indeksu: ');read(b);clrscr;wyswietlOdDo(a,b);
UNTIL (a<=b)AND(a>0)AND(b<=n);readkey;end;
8:begin end;
end;
clrscr;
UNTIL wybor=9;
end;{eng...}
begin clrscr;
all;
end.