Proceudre InserisciPER(Var RU: Rubrica; PE: Persona);
Var
  pos: Integer;
Begin
  pos:=1;
  While(pos <= Nmax) And (RU[pos].Cognome <> '') do
    pos:=pos+1;
  if(pos <= Nmax) then
    RU[pos]:=PE;
End;

Le altre operazioni da svolgere sono

Procedure ConsultaPER(RU: Rubrica; Cognome, Nome: Str15; Var PE: Persona);

Procedure AggiornaPER(Var RU: Rubrica; PE: Persona);

Procedure EliminaPER(Var RU: Rubrica; Cognome, Nome: Str15);