угадывает число

var a,c,x,k:integer;
 
begin
  a:=100;
  c:=100;
  k:=0;
 
    while k=0 do
    begin
      Writeln('Верно ли, что задуманное число больше ',a,'?');
      writeln('1-да; 0-нет');
      Readln(x);
      if x=1 then a:=a+100;
      if x=0 then
        begin
          a:=a-c;
          c:=c div 2;
          a:=a+c;
        end;
    end;
      writeln('Ваше число: ',a);
end.

uses crt;
 
const
  nMax = 512;
 
var
  number, guess, min, max, count: integer;
  c: char;
 
begin
  writeln('Введите число, которое попытается угадать компьютер (1 - ',nMAx,')');
  repeat
    write('-> ');
    readln(number)
  until (number >= 1) and (number <= nMax);
  count:=1;
  guess:=nMax div 2;
  min:=1;
  max:=nMax;
  repeat
    if guess = number then break;
    writeln('Число больше ',guess,'? (y/n)');
    write('-> ');
    readln(c);
    case c of
    'y','Y': begin
      inc(count);
      min:=guess;
      max:=max;
      guess:=min + ((max - min) div 2);
    end;
    'n','N': begin
      inc(count);
      max:=guess;
      min:=min;
      guess:=min + ((max - min) div 2);
    end;
    else
      begin
        writeln('Неверный ввод!');
        break;
      end;
    end;
  until (number = guess);
  writeln('Программа угадала ваше число за ',count,' попыток! Оно равно ',guess);
  readln;
end.