program UgadaiChislo;    // Супер мега игра угадай число
var i,s,n,m:integer; cmdOK, cmdExit, click: command;    // объявление переменных
begin    // начало
    Randomize;  // это чтобы разные числа загадывались
    showForm;   // отобразим форму
    cmdOk:=CreateCommand('Ввод',CM_OK,0);    // создадим команду выбора
    cmdExit:=CreateCommand('Выход',CM_Exit,1);    // и команду выхода
    addCommand(cmdOk); addCommand(cmdExit);   // и добавим их на экран
    n:=Random(100)+1;                    // загадываем число от 1 до 100
    i:=FormAddTextField('Угадай число','',3,TF_NUMERIC);    // сюда мы будем вводить наше число
    s:=FormAddString('Загадано число от 1 до 100. Угадай его!');    // а сюда выводить сообщения
    repeat         // главный цикл игры
    repeat         // ждем нажатия комманды
     click:=GetClickedCommand;
    until click<>EmptyCommand;
       
    if click=cmdOK then begin    // если нажали на выбор
     m:=StringToInteger(FormGetText(i));    // преобразуем введенный нами текст в число
     formRemove(s);    // в МидлетПаскаль нельзя изменить строку текста. Но можно ее пересоздать. так что удалим старый текст
     formSetText(i,'');    // а заодно очистим и текстовое поле куда мы число ввели
     if m>n then s:=FormAddString('Меньше чем '+IntegerToString(m));    // если наше число больше загаданного
     if m<n then s:=FormAddString('Больше чем '+IntegerToString(m));    // если меньше..
     if m=n then begin                    // если мы угадали
      s:=FormAddString('Пилять! Угадал! Давай снова!');   // выводим победное сообщение   
      n:=Random(100)+1;                    // и загадаем новое число
     end;
    end;
    until click=cmdExit;    // выходим из главного цикла если нажали Выход
end.

if user = 'Блять!' then comp := 'Не матерись!';