[Ajuda]Código Pascal não compila

Sou iniciante de pascal,fiz um código de uma lista encadeada simples no compilador pascalzim,ta dando um erro na hora de compilar e ja tentei de tudo pra resolver isso e não encontro saída.Estou postando o código,por favor preciso encarecidamente da ajuda de voces,e um trabalho da faculdade.     segue o codigo:     Program lista;
uses crt;
type
    elo=^no;
 no=record
  nome: string;
  prox: elo;
 end;
var prim,p, aux: elo;
        op:integer;
 a:boolean;
 procurado:string;
Begin
 op:=1;
 while op<>6 do
 begin
 op:=6;
 writeln('  ');
 writeln('    1-inicializar');
 writeln('    2-inserir');
 writeln('    3-excluir');
 writeln('    4-procurar');
 writeln('    5-exibir');
 writeln('    6-sair');
 writeln(' >Escolha uma opcao: ');
 readln(op);
 writeln(' ');
 if op=1 then
 begin
  new(prim);
  prim^.prox:=NIL;
  writeln('Lista inicializada');
 end;
 if op=2 then
 begin
  new(p);
  writeln('digite o nome para ser inserido na lista');
  readln(p^.nome);
  p^.prox:=prim;
  prim:=p;
 end;
 if op=3 then
        begin
  writeln('digite o nome a ser excluido:');
  readln(procurado);
  p:=prim;
  a:=true;
  while (p<>NIL) and a do
  begin
   if p^.nome=procurado then
   begin
    aux:=p^.prox;
    p^.nome:=aux^.nome;
    p^.prox:=aux^.prox;
    a:=false;
   end;
   if p^.nome<>procurado then
   begin
    p:=p^.prox;
   end;
  end;
  writeln('   ');
  if a=false then writeln('O nome ', procurado ,' foi excluido na Lista!')
  else writeln('O nome ', procurado ,' não existe na Lista!');  end;
 if op=4 then
 begin
  writeln('digite o nome a ser procurado:');
  readln(procurado);
  p:=prim;
  a:=true;
  while (p<>NIL) and a do
  begin
   if p^.nome=procurado then
    a:=false
   else
    p:=p^.prox
  end;
  writeln('   ');
  if a=false then writeln('O nome ', procurado ,' foi encontrado na Lista!')
  else writeln('O nome ', procurado ,' não foi encontrado na Lista!');
 end;
 if op=5 then
 begin
  p:=prim;
  while p<>NIL do
  begin
   writeln(p^.nome);
   p:=p^.prox;
  end;
 end;  end;
end.   agora segue o erro: