Problema de los cuatro colores de Pascal, colorear el mapa

Aquí está el programa:

var a:array do

si b hace

b comienza

readln(n);

ans:=0; n hacer

comenzar

readln(x,y);

inc(a); =y;

inc(a[x,a]：=y;

inc(a);

a[y,a] :=x ;

fin;

trabajo(1);

writeln(ans);