uses crt;
type sub1 = text;               {subor typu text, obsah je v riadkoch CR,LF}
     sub2 = file of integer;     {typovy subor}
var f1 : sub1;
    f2 : sub2;
    x : char;
    y : integer;
begin
clrscr;

writeln('Zadaj text do textoveho suboru');
assign(f1,'subor1.txt'); {meno externeho suboru priradime premennej}
rewrite(f1);                     {otvori subor na zapis, obsah sa premaze}
repeat                   {z klavesnice do suboru}
 x := readkey;
 write(x);
 write(f1,x);
until x = #13;
close(f1);
writeln;

writeln('Toto je obsah tvojho textoveho suboru');
assign(f1,'subor1.txt'); {meno externeho suboru priradime premennej}
reset(f1);                     {otvori subor na citanie}
while not eof(f1) do begin         {pokial nie je koniec suboru}
                      read(f1,x);
                      write(x);
                     end;
close(f1);

readln;
clrscr;

writeln('Zadaj cele cisla do typoveho suboru');
assign(f2,'subor2.typ'); {meno externeho suboru priradime premennej}
rewrite(f2);                     {otvori subor na zapis, obsah sa premaze}
repeat                   {z klavesnice do suboru}
 write('Zadaj cislo: ');
 readln(y);
 write(f2,y);
until y = 0;
close(f2);

writeln('Toto je obsah tvojho typoveho suboru');
assign(f2,'subor2.typ'); {meno externeho suboru priradime premennej}
reset(f2);                     {otvori subor na citanie}
while not eof(f2) do begin         {pokial nie je koniec suboru}
                      read(f2,y);
                      writeln(y);
                     end;
close(f2);

readln;
end.