Procedure Nomb_Naim(var n:integer;var Stud:Nstud;var Naim:array of slova);

Begin
   n:=0;
   Repeat
   If Head<>nil then
       Begin
          inc(n);
          Naim[n]:=Head^.Otv1;
          inc(n);
          Naim[n]:=Head^.Otv2;
          Head:=Head^.Next;
       end;
    until Head=nil;
end;