trafianie w liczbe

Poprzedni moj temat zostal usuniety wiec pisze po raz drugi.

Witam, muszę napisać program w pascalu, który wybierze dowolną liczbę do 1000 i wtedy ja mam strzelac az trafię w tą liczbę. Czyli: program losuje liczbe z zakresu 1-1000 i ja mam wpisywac tyle razy różne liczby aż trafię w tą którą wybrał program. No i ma zliczac za iloma strzałami trafiłem w tą liczbę.

Oto moj przyklad, ale cos nie bangla:

PROGRAM Loss;

 VAR
  los, liczba, i , : integer;

BEGIN
Randomize;
 los := random(1000+1);
 WriteLn ('Zgadnij liczbe z przedzialu 1-1000!');
  Begin
   i:=i+1;
   Write ('Podaj liczbe: '); ReadLn (liczba);
   IF liczba = los THEN
    WriteLn ('Brawo! Trafiles!')
    ELSE
     WriteLn (Sprobuj jeszcze raz)
        Begin
         WriteLn ('Zgadles za ',i,' razem!');
  End;
END.

Poczytaj o pętlach - repeat until.

PROGRAM Loss;
 
 VAR
  los, liczba, i , : integer;
 
BEGIN
Randomize;
 los := random(1000+1);
 WriteLn ('Zgadnij liczbe z przedzialu 1-1000!');
  repeat
   Begin
   i:=i+1;
   Write ('Podaj liczbe: '); 
   ReadLn (liczba);
   IF liczba = los THEN
    WriteLn ('Brawo! Trafiles! Zgadles za',i,'razem')
    ELSE
     WriteLn ('Sprobuj jeszcze raz');
     End;

END.

a teraz co zle?

Jak napisał Anoxic:

Anoxic napisał(a)

Poczytaj o pętlach - repeat until.

...i naucz się formatować kod.

A to nie miało być tak, że program podpowiada czy wylosowana liczba jest większa czy mniejsza? Bez tego w najgorszym przypadku można się pomylić 999 razy.