Tak základní algoritmus bude nějak takto :

var
  celeCislo: CeleCislo;
  hadaneCislo:CeleCislo;
  chyb :CeleCislo;
begin
  hadaneCislo:=Random();
  celeCislo:=-1;
  while(hadaneCislo==celeCislo)
  begin
    celeCislo=načtiČíslo();
    if (celeCislo=hledaneCislo) write("Prefil jsi se");
    if (celeCislo<hledaneCislo) begin write("Cislo je větší"); chyb:=chyb+1 end;
    if (celeCislo*hledaneCislo) begin write("Cislo je menší"); chyb:=chyb+1 end;
  end;
  write("Počet chyb:"+IntToStr(chyb));
end.

To to čistě jen nástřel v češtině, budeš si muset v rámci cviku opravit. A to while nejspíše nahradit forem s omezenými pokusy.

Aspon ty bys mohl CODE pouzivat (JaFi)