program vytvor; { vytvori ze vstupniho textoveho souboru datovy soubor - slozku streamu A } uses streams; var A : stream; Z : zaznam; txt, contr :text; strtxt, strdat :string[26]; begin writeln('Zadej jmeno vstupu'); readln(strtxt); assign(txt,strtxt+'.inp'); reset( txt); writeln('Zadej jmeno vystupniho datoveho souboru'); readln(strdat); assign(A.F,strdat+'.dat'); rewrite(A.F); while not seekeof(txt) do begin read(txt,Z.key); write(A.F,Z); end; assign(contr,'contr.inp'); tisk(A,contr); end.