Mit rontottam el ebben a programozásban?

Program valami;

Uses Crt;

Var a: array[1..10] of integer;

i: integer;

min: integer;

max: integer;

p: integer;

begin

for i:=1 to 10 do

a[i]:=random(100);

write(a[i]);

end;

writeln;

write('Kerem a szamot: ');

write(p);

min:=100;

max:=0;

for i:=1 to 10 do

if a[i]>p then

if a[i]<min then

min:=a[i];

end

else

if a[i]>max then

max:=a[i];

end;

end;

write('P szam: ');

readln(p);

write('A legkisebb: ');

readln(min);

write('A legnagyobb: ');

readln(max);

End.