View difference between Paste ID: Pz4AUunw and fgVaD8eQ

 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 = 3;
+n = 10;
 ileWklasie = 40;
-wybor,nrOsoby,iloscPrzedmiotow : byte;
+
-procedure menu;
+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('7 - wyjscie');
+
-write('Twoj wybor: ');read(wybor);
+
 writeln('6 - usun rekord');
 writeln('7 - Wyswietl od do...');
-var x,jest : byte;
+writeln('8 - sortuj');
 writeln('9 - wyjscie');
 write('Twoj wybor: ');read(wybor);end;
 2:begin  end;
 end;
-          write('Podaj numer osoby: ');readln(osoba[x].nr);
+
 procedure wypelnijLosowo;
 var y,rNr,jest : byte;
 begin randomize;
 for x:=1 to n do begin
 REPEAT jest:=1;
-          write('Dodano.')
+rNr:=random(ileWklasie)+1;
-          end ELSE write('Dziennik zapelniony (liczba osob)');
+    for y:=1 to x do begin
         if rNr=osoba[y].nr then begin jest:=0;break;end;
     end;
-var x,jest : byte;
+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: ');
-var x,jest : byte;
+          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);
-var x,poz,jest : byte;
+
           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);
-var x,poz,jest : byte;
+
     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
-var x,jest,schowekNumer : byte;
+
 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...');
-menu;
+
 procedure najwiekszaSr;
 var poz,jest : byte;
-2:begin jednaOsobaZcz;end;
+
-3:begin wysWszystkich;end;
+
-4:begin najwiekszaSr;end;
+
-5:begin najmniejszaSr;end;
+
-6:begin usunRekord;end;
+
 if jest = 1 then begin write('Najwieksza srednia ma nr ',osoba[poz].nr,'. (',osoba[poz].nazwisko);
-readkey;clrscr;
+
-UNTIL wybor=7;
+
 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.