MotylloPL

Witam, próbowałem zrobić prostą gierkę, w której komputer
odgaduje liczbę, którą sobie ustaliłem(wymyśliłem). Na początku podaje przedział od-do, a komputer losuje liczbę z tego przedziału, gdy już ma liczbę ja daje podpowiedź czy to ta, czy jest za mała, czy za duża. Jeżeli dam za duża lub za mała przedział powinien się zmniejszyć do tej liczby. Gierka szwankuje, proszę o odnalezienie błędu :]

Program
Zgadnij_Liczbe2;
Uses crt;
var a1,a2,a3,a4,b,c:integer;
Begin
clrscr;
randomize;
WriteLn('Witaj.Komputer sprobuje odgadnac Twoja liczbe;.');
Write('Podaj przedzial od: ');
Read(a1);
Write('do: ');
Readln(a2);
write('podaj liczbe; z tego przedzialu '); readln©;
b:=(a2-a1)+a1;

repeat

Write('Czy jest to liczba ' ,b,' 1.Tak zgadles 2.Za malo 3.Za duzo');
Readln©;
If c=2 then
begin

a3:=a1+b;
b:=random(a2-a3)+a3;
end;
If c=3 then
begin
a4:=(b-a2)+a2;
b:=random(a4);
end;
If c=1 then writeln('aha');


Until c=1;

Repeat Until Keypressed;
End.