type Baza=record
nom:integer;
fio:string[20];
god:integer;
adr:string[20];
end;
var Inf:Baza;
type Baza=record
nom:integer;
fio:string[20];
god:integer;
adr:string[20];
end;
var Inf:Baza;