var
   pupil1, pupil2: anketa1;

begin

   ...

   pupil1:=pupil2;

   ...

end.