soubory.pas

program priklad_soubory;
var soubor:text; // proměnná pro uchování otevřeného souboru
    i:byte; // počítadlo
    cisla:array[1..10] of integer; // pro uložení načtených čísel
begin
    // ********* NAČTENÍ 10 ČÍSEL ZE SOUBORU *********

    // přiřazení jména souboru (vstup.txt) k proměnné soubor
    assign(soubor, 'vstup.txt');

    // - reset(soubor) otevře soubor, přičemž soubor už musí existovat.
    // - rewrite(soubor) vytvoří nový soubor a otevře ho, pokud již existuje, tak ho smaže.
    // - append(soubor) otevře existující soubor a nastaví "pozici" na konec souboru - můžete tak 
    //   zapisovat rovnou na konec bez porušení existujících dat
    reset(soubor);

    // Načtení 10 čísel do pole 'cisla', všimněte si readln() s parametrem 'soubor'
    for i:= 1 to 10 do
        readln(soubor, cisla[i]);

    // Zavření souboru, tohle musíte vždy udělat před ukončením programu nebo
    // než k proměnné přiřadíte jiný soubor
    close(soubor);


    // ********* ZAPSÁNÍ 10 ČÍSEL DO SOUBORU *********
    assign(soubor, 'vystup.txt');
    rewrite(soubor); // tentokrát chceme vytvořit nový soubor

    // Zapsání 10 čísel do souboru, tentokrát za použití writeln
    for i:= 1 to 10 do
        writeln(soubor, cisla[i]);

    close(soubor);

    // čekání na enter před ukončením programu
    writeln('Cisla zapsana do souboru vystup.txt, stisknete enter...');
    readln();
end.

soubory_lepsi.pas

program priklad_soubory;
var vstup,vystup:text; // proměnná pro uchování otevřených souborů
    i:byte; // počítadlo
    cislo:integer; // docasne uchovani cisla - dalo by se udelat i bez ni
begin
    // přiřazení jména souborů k proměným
    assign(vstup, 'vstup.txt');
    assign(vystup, 'vystup.txt');

    // - reset(soubor) otevře soubor, přičemž soubor už musí existovat.
    // - rewrite(soubor) vytvoří nový soubor a otevře ho, pokud již existuje, tak ho smaže.
    // - append(soubor) otevře existující soubor a nastaví "pozici" na konec souboru - můžete tak 
    //   zapisovat rovnou na konec bez porušení existujících dat
    reset(vstup); // otevřít vstup
    rewrite(vystup); // vytvořit nový výstup

    // Načtení a zapsání 10 čísel ze souboru vstup do vystup.
    // Všimněte si readln a writeln s parametrem soubor
    for i:= 1 to 10 do
    begin
        readln(vstup, cislo);
        writeln(vystup, cislo);
    end;

    // Zavření souboru, tohle musíte vždy udělat před ukončením programu nebo
    // než k proměnné přiřadíte jiný soubor
    close(vstup);
    close(vystup);

    // čekání na enter před ukončením programu
    writeln('Cisla zapsana do souboru vystup.txt, stisknete enter...');
    readln();
end.