Неверное отображение результата с цифрами(задачи с лексемами)

const
  numoflex = 15;
  letter  = ['a'..'z', 'A'..'Z'];
  number = ['0'..'9'];
type
  lexeme = record
    inputlex: string[50];
    typeoflex: string[30];
  end;
 
var
  s: string;
  lex: array [1..numoflex] of lexeme;
  p, i, n: byte;
  v: integer;
 
begin
  i := 0; 
  n := 1;
  read(s); // Например -  123 a312a    asdf := <= >= <> 3a a3a a11   a32>=34
  writeln();
  s := Trim(s);
  Insert(' ', s, Length(s) + 1);
  repeat
    inc(i, 1);
    p := pos(' ', s);
    lex[i].inputlex := copy(s, n, p - 1);
   if TryStrToInt(lex[i].inputlex, v)=true
    then lex[i].typeoflex:='Число'
     else if lex[i].inputlex='>=' then lex[i].typeoflex:='Больше-равно'
      else if lex[i].inputlex='<=' then lex[i].typeoflex:='Меньше-равно'
       else if lex[i].inputlex=':=' then lex[i].typeoflex:='Присвоение'
        else if (lex[i].inputlex[1] in letter) 
         then 
               lex[i].typeoflex:='Идентификатор'
          else lex[i].typeoflex:='лексема введена неверно';
    writeln(lex[i].inputlex, ' - ', lex[i].typeoflex);
    delete(s, n, p);
    s := TrimLeft(s);
  until s = '';
end.