Pascalban segítene valaki?

Még régebben csináltam ezt a programot(habár egy kis segítséggel), és azt szeretném-, kérdezni, hogy lehetne megcsinálni a legegyszerűbben, hogy a a tippelő ne írhassa többször ugyanazt a számot, és a gép se írja többször ugyanazt a számot, és ha a tippelő nem a feltételnek megfelelően írja be a számot(pl 90-ig lehet de ő 91-et ír be vagy 0-át amit uyge nem lehet, akkor ne megyen tovább a következő számra amit tippelni szeretnénk, hanem kérje újra azzal a "kifogással", hogy a szám túl nagy/kicsi .

program lotto;

var veletlen,c,i:integer;

tipp:array [1 .. 90] of integer;

begin

for i:= 1 to 5 do

begin

write(i, '. szam: ');

readln(tipp[i]);

if tipp[i] < 1 then writeln('Irj be nagyobbat!')

else if tipp[i] > 99 then writeln('Irj be kisebbet!')

else

end;

writeln('A nyero szamok:');

randomize;

for c:=1 to 5 do

begin

veletlen:=random(99)+1;

write(veletlen:5);

end;

end.