Два задания вроде как есть, нужно три, помогите
program lb3;
uses crt;
type
zap1=record
f:string;
p:char;
kd: byte;
day,month,god:byte;
dr:string;
end;
zap = file of zap1;
var
f,x,d,y :zap;
z, kd1,n1:byte;
n:integer;
k :integer;
procedure sozd (var x:zap;k:integer);
var
i:byte...