ПОМОГИТЕ РЕШИТЬ ПОЖАЛУЙСТА!!!!!!!!ЗАРАНИЕ СПАСИБО

Program n_1;

var a, b: integer;

begin

 randomize;

 a:=random (1000) + 1;

 while a lt;gt; b do begin

   write ('Введи число!!!');

   readln (b);

   if b gt; a then writeln ('Перебор!!!')

   else if b lt; a then writeln ('Маловато будет...')

 end;

 writeln ('Молодец! Угадал!');

 readln();

end.

var

 a, b: Integer;

begin

 Randomize;

 a := Random (1000) + 1;

 while a lt;gt; b do begin

   Write ('Введи число!!!');

   ReadLn (b);

   if b gt; a then

     WriteLn ('Перебор!!!')

   else if b lt; a then

     WriteLn ('Маловато будет...')

 end;

 WriteLn ('Молодец! Угадал!');

 ReadLn;

end.