Type anketa1=record
   fio: string[45];
   pol: char;
   dat_r: record
     god: integer;
     mes: string[10];
     den: 1..31;
    end;
   adres: record
     gorod: string[25];
     ulica: string [20];
     dom, kv: integer;
    end;
   cl: string[5];
   gr: string[3];
end;