var g : file of integer;
    y : integer;
begin
 assign(g,'cislo.bin');
 rewrite(g);
 y := 1; write(g,y); inc(y); write(g,y); inc(y); write(g,y); {zapis do typoveho suboru}
 writeln('Pocet poloziek je ',filesize(g));
 {$I-}                      {vypnutie generovanie chyb po volani I/O procedury}
 reset(g);
 if ioresult <> 0 then writeln('Subor neexistuje');
 {$I+}                      {vypnutie generovanie chyb po volani I/O procedury}
 seek(g,1);                                  {nastavenie v subore na 2 polozku}
 read(g,y); write(y);               {nacitane polozky a jej vypis na obrazovku}
 seek(g,0);
 while not(eof(g)) do begin                  {vypis celeho suboru na obrazovku}
                       writeln('Pozicia v subore je: ',filepos(g));
                       read(g,y);
                       writeln(y);
                      end;
 close(g);
 rename(g,'aaaaa.bbb');                   {cislo.bin sa premenuje na aaaaa.bbb}
 erase(g)                                        { aaaaa.bbb sa zmaze z disku }
end.

{============================================================================}

var f : text;
    var x : char;
begin
 assign(f,'subor.txt');
 rewrite(f);
 write(f,'ahoj');writeln(f,'ahoj');writeln('ahoj');{zapis do textoveho suboru}
 close(f);                                             {zatvorenie na citanie}
 append(f);                  {otvori existujuci text subor na zapis na koniec}
 writeln(f,'koniec suboru');
 close(f);
 {$I-}                      {vypnutie generovanie chyb po volani I/O procedury}
 reset(f);
 if ioresult <> 0 then writeln('Subor neexistuje');  {zistenie chyby poslednej I/O operacie}
 {$I+}                      {zapnutie generovanie chyb po volani I/O procedury}
 while not(eof(f)) do begin
                       while not(eoln(f)) do begin
                                              read(f,x);
                                              write(x);
                                             end;
                       readln(f);
                       writeln;
                      end;
 close(f);
 rename(f,'aaaaa.bbb');                   {subor.txt sa premenuje na aaaaa.bbb}
 erase(f)                                        { aaaaa.bbb sa zmaze z disku }
end.