program Breed;
type
filmi=record
naz:string;
rej:string;
kinost:string;
god:integer
end;
var
f:file of string;
t:file of string;
st:array[1..3] of filmi;
i:integer;
begin
for i:=1 to 3 do
with st[i] do
begin
writeln('Введите название фильма');
readln(naz);
writeln('Введите имя режиссера');
readln(rej);
writeln('Введите название киностудии');
readln(kinost);
writeln('Введите год выпуска');
readln(god);
assign(f,'C:\Bah-bah\bla');
rewrite(f);
assign(t,'C:\Bah-bah\bla.txt');
rewrite(t);
write(t,naz,rej,kinost);
if kinost=kinost then write(t,rej,naz);
close(f);
close(t) ;
end;
end.