Program Databaze1;

type Filmy = record
     Nazev : String[25];
       Rok : integer;
   Pujceno : boolean;
      end;

var film : array [1..3] of Filmy;
    soubor : text;
    Pujceno : String[3];
    i : integer;
    Nazev: String;

begin
  assign(soubor,'D:\Dokumenty\Soubory\film1.txt');
  reset(soubor);
  readln(soubor, film[1].Nazev);
  readln(soubor, film[1].Rok);
  readln(soubor, pujceno);
  close(soubor);
  if pujceno='ano' then film[1].Pujceno:=False;
  if pujceno='ne' then film[1].Pujceno:=True;
  assign(soubor,'D:\Dokumenty\Soubory\film2.txt');
  reset(soubor);
  readln(soubor, film[2].Nazev);
  readln(soubor, film[2].Rok);
  readln(soubor, pujceno);
  close(soubor);
  if pujceno='ano' then film[2].Pujceno:=False;
  if pujceno='ne' then film[2].Pujceno:=True;
  assign(soubor,'D:\Dokumenty\Soubory\film3.txt');
  reset(soubor);
  readln(soubor, film[3].Nazev);
  readln(soubor, film[3].Rok);
  readln(soubor, pujceno);
  close(soubor);
  if pujceno='ano' then film[3].Pujceno:=False;
  if pujceno='ne' then film[3].Pujceno:=True;
  assign(soubor,'D:\Dokumenty\Soubory\filmy.txt');
  rewrite(soubor);
  append(soubor);
  for i:=1 to 3 do
    writeln(soubor, film[i].Nazev, ' ', film[i].Rok, ' ', film[i].Pujceno);
  close(soubor);
  writeln('Ve sloce D:\Dokumenty\Soubory\ byl vytvoen soubor filmy.txt');
  readln;
end.