Program mimi; var a, b: integer; begin readln (a); if 99 < a < then writeln('неверно') else if a> 999 then writeln('неверно') else writen('верно') end. выдаёт: pas(5) : ожидался идентификатор что не так?

Переписал без ошибок
var a, b:integer;
begin
readln (a);
if 99 < a then writeln('Неверно')
 else if a>999 then writeln('Неверно')
  else writeln('Верно')
end.