Sequencia simplesmente fechada

[Gilliard Pacheco]

colegas ,  eu  nem seu  como  começar , o  meu  professor fez em  outra linhagem  eu  nao  encontrei  o  codigo  para pascal

como fazer uma fila sequencial fechado(fila de baco um apontando para o proximo quadro , se o proximo quadro  estiver vazio ele exclui e se não ele coloca um valor dentro do  quadro 

 tipo referencia de nó

Program sequencia ;

type
registro =(dado:char,prox:registro);

var a,b,c:registro;
resp:char;
cont:integer

                begin
                    resp:= 's';
                  cont:=0;
                  while resp= 's' do
                     writeln('desja colocar um valor? S/N');
                     readln(resp);
                 end;
        if (resp='s')then
                    begin
                    new (a);
                    write(    'Deseja colocar outro  valor ' );
                    readln(a:dado);
                    y^:prox:=nil
                end;
                begin
                    if (p=nil)then
                    a:=c;
                    b:=c;
                    end;
                    else
                  b^:prox:= c;
                  c:=c;
        end; 
        
        else

            c:=nil;
            dispose (c);
            cont:=cont+1;
        end 
        
        else

            c:= nil
            dispose (b);
        end 
        
        else

            write();
            writeln(' A lista contém',cont,'elementos');
        
        End.