correction theorique 1 programmation

voici une solution ,ya-t-il d'autres solution?????????????????????????????????

program jeu_fourmi;
uses wincrt;
var
no,nu,su,so:integer;

function jeu (nu,no,su,so:integer):integer;
var
n,p:integer;
begin
writeln('1:pair.');
writeln('2:impair.');
readln(p);
n:=0 ;
su:=0;
so:=0;
repeat
n:=n+1;
randomize;
no:=1+random(5);
writeln('nu=');
readln(nu);
if ((no+nu) mod 2 = 0) and (p=1) then
su := su +1
else
so:=so+1;

until n=10;
if su > so then
begin
writeln('bravo ,vous avez gagné ');
writeln('votre score est : ',su);
writeln('le score de l''ordinateur est : ',so);
end
else
begin
writeln('déolé ,vous avez perdu ');
writeln('votre score est : ',su);
writeln('le score de l''ordinateur est : ',so);
end;
end;
begin
jeu(nu,no,su,so);
end.