Analisador Léxico - Delphi - Dúvidas

Boa noite galera!!! 

tu com uma duvida giganteeeeeeeeeeeeeee aqui... 

preciso criar um analisador léxico para o seguinte código de uma linguagem fictícia: 

Código:
program teste; 
var x,y: integer; 
const pi :=3.1416; 
/* inicio do programa */ 
begin 
   read(x); 
   if (x > y) then  
      y := x ; 
   else 
      y := -x; 
      writeln(x); 
end; 



lendo isso aí.. ele tem que me devolver isso: 

program PALAVRARESERVADA 
teste IDENTIFICADOR 
; SIMBOLOESPECIAL 
var PALAVRARESERVADA 
x IDENTIFICADOR 
, SIMBOLOESPECIAL 
y IDENTIFICADOR 
: SIMBOLOESPECIAL 
integer PALAVRARESERVADA 
; SIMBOLOESPECIAL 
const PALAVRARESERVADA 
...... 


procurei em tudo que é lugar e não encontrei nadaa... 

eu consegui apenas separar tokens por espaço.. mas mtoss casos naum eh o espaço que separa um token do outro.. =\

vlww