Anonymní profil David – Programujte.com

Může to někdo zkusit? nefunguje mi turbopascal..

Zatím jsem udělal toto, nevím zda funguje

program trojice;
var znam: record cj: integer;
                  mat: integer;
                  prg: integer;
                  end;
    prum: real;
    a: record cj: integer;
            mat: integer;
            prg: integer;
    jedn, n, dob, prop: integer;

begin
    with a do begin
                    mat:0;
                    cj:=0;
                    prg:=0;
                end;
    prum:=0;
    n:=0;
    jedn:=0;
    dob:=0;
    prop:=0;
    write("Zadej známky jednotlivých žáků, ukončených čísly 0-0-0:");
    repeat 
        with znam do begin
                        n:= n+1;
                        (n,". tý žák");
                        write("Známka z matematiky:");
                        readln(mat);
                        while mat = 1 do a.mat:=a.mat + 1;
                        write("Známka z češtiny:");
                        readln(cj);
                        while cj = 1 do a.cj:=a.cj + 1;
                        write("Známka z programování:");
                        readln(prg);
                        while prg = 1 do a.prg:=a.prg + 1;
                        prum:= prum + prg;
                        while (mat <= 3) or (cj <= 3) or (prg <= 3) do  dob:= dob +1;
                        while (mat = 5) or (cj = 5) or (prg = 5) do  prop:= prop +1;
                        while (mat = 1) and (cj = 1) and (prg = 1) do  jedn:= jedn +1;
                    end;
    until (znam.mat = 0) and (znam.cj = 0) and (znam.prg = 0);
    prum:= prum/n;
    write("Průměr třídy z programování je :", prum);
    with a do begin
                    write("Jedničku z matematiky má", mat," žáků.");
                    write("Jedničku z češtiny má", cj," žáků.");
                    write("Jedničku z programování má", prg," žáků.");
                    write("Jedničku ve všech předmětech má", jedn," žáků.";
                    write(dob," žáků nemá ani 4 ani 5.");
                    write(prop," žáků propadá.");
                end;
    readln;
end.

Určitě jsem něco dám, ale nevím jak udělat, aby se načítání ukončilo po zadání 3x 0

Omlouvám se, ale až teď jsem si všimnul, že mám v zadání chybu, mám tam napsané, že je pouze jedna trojice, avšak správně je zadáváno n trojic, které jsou ukončené trojicí nul

Jde o to, že se to neučím ve škole, ale sám doma, kamarád mi pouze vysvětluje jak se co zapisuje a zbytek si dělám sám.

Zdraví, dostal jsem následující zadání: 
Na vstupu je trojice čísel udávající prospěch jednotlivých žáků z českého jazyka, matematiky a programování. Vstup je ukončen trojicí 0,0,0.
1. průměrný prospěch třídy z PRG
2.kolik žáků má jedničku z Čj, kolik z M a kolik z PRG
3. KOlik žáků má jedničku ve všech předmětech
4. kolik žáků nemá 4 ani 5
5. kolik žáků propadá

Co byste použili na ukládání dat ? Záznam nebo pole? Kdyby byl někdo tak ochotný a trochu mi tu rozepsal jak co udělat. Pascal se učím asi týden a zatím toho moc nevím. Předem děkuji za odpovědi.