Файл LAB6.pas

program upr; uses crt;

{-----------------описание типов-----------------------}

type st=string[20];

data=record

day:1..31; month:st; year:integer; end;

adress=record

index,town,street:st; hause,flat:integer; end;

pasp=record

fam,im,ot:st; d:data; ad:adress; end;

anketa=record

pas:pasp; p,nat:st; end;

A=array [1..20] of anketa;

{-------------конец описания типов---------------------}

var X:A;i,j,k,l,n:integer; S,S1,S2:st;t,c,v,d:real;

{---------------процедура вывода-------------------}

procedure wywod(n:integer;h:A);

{------------------процедура присваивания--------------}

procedure priswaiwanie(var h:A);

begin priswaiwanie(X); wywod(n,X); end.