Unité lexicale

Bonjour,je veux la solution de ce exercice
Découper le programme suivant en unités lexicales. Définir différents ensembles pour regrouper ces unités lexicales. Ranger les unités lexicales dans ces ensembles. Définir ces ensembles de manière informelle selon deux critères, selon les aspects sémantiques, et selon les aspects syntaxiques.
program amiable(input,output);
var p,q:integer;
function amiable(x,y:integer):boolean;
begin
amiable:=false
if ((x=y) and (x=sommediviseur(y)) then
amiable:=(y=sommediviseur(x))
end;

begin
p:=512;q:=1;
repeat
if (p=q) then begin p:= p+1; q:=1; end
else q:=q+1;
until amiable(p,q);
writeln(p,q);
end.