Type anketa=record
   fio: string[45];
   pol: char;
   dat_r: string[8];
   adres: string[50];
   cl: string[5];
   gr: string[3];
end;