umel by mi nekdo opravit toto pexeso?
ucitel rika ze tam mam neco blbe a ja nwm co podle me to funguje.
tak doufam ze na to nekdo prijde.

{pexeso}
začátek
n := 20;
pocet := 0; 
 pro i od 1 do n opakuj
pexeso[i] := 0;  
  pro i od 1 do n div 2 opakuj
pexeso[i] := ((random * n * 10) div 1) mod n + 1;
  pro typ od 1 do 2 opakuj
 typy[typ] := 0;
kolo := 0;
hráč := 0;
  pro hráč od 1 do 2 opakuj
 body[hráč] := 0;
  dokud pocet < n div 2 opakuj
začátek
 hráč := hráč + 1;
 jestliže hráč > 2 pak
začátek
  hráč := 1;
  kolo := kolo + 1;
konec;
 napiš("Je ", kolo, " kolo, hraje hráč ", hráč);
 pro typ od 1 do 2 opakuj
začátek
čti(karta);
dokud 1 > karta or karta > n opakuj
 čti(karta);
 dokud pexeso[karta] < 0 opakuj
 čti(karta);     
napiš(karta);
typy[typ] := pexeso[karta];
konec;
 jestliže typy[1] = typy[2] pak
začátek
 pexeso[karta] := -1;
 napiš("Hráč číslo ", hráč, " získal bod");
 body[hráč] := body[hráč] + 1;
 pocet := pocet + 1;
konec;
konec;
jestliže body[1] > body[2] pak
napiš("Vyhrál hráč číslo 1")
jinak napiš("Vyhrál hráč číslo 2");  
konec