{avem un fisier cu numele NumeFisier.txt in care este pe prima linie un sir de caractere, pe urmatoarea avem un numar si pe ultima linie avem niste numere. se tipareste fisierul pe ecran si se face un nou fisier cu ultima cifra din ultimul numar din primul fisier.}
var f:text; {declar variabilele statice} s:string; {cu nume si tip} x:integer; {am fisierul(f),un sir de caractere(s) si un intreg(x)}
begin {incep programul principal} assign(f,'NumeFisier.txt');{variabilei f ii asociez fisierul cu nume si extensie} reset(f); {deschid fiserul in citire} readln(f,s); {citesc stringul s din fisierul f,citind si sfarsitul de linie} writeln(s); {tiparesc pe ecran} readln(f,x); {de pe urmatoarea linie citesc un numar si trec linia} writeln(x); {si il tiparesc} repeat {aici citesc toate numerele de pe urmatoarea linie} read(f,x); {citesc numarul, ramanand pe aceeasi linie} write(x,' '); {tiparesc pe ecran si un spatiu} until eoln(f); {si fac tata treaba asta pana ajung la sfarsitul liniei} close(f); {inchid fisierul} assign(f,'NumeFisier2.txt');{asociez aceleiasi variabile alt fisier} rewrite(f);{pe care il creez si il deschid in scriere} writeln(f,x mod 10);{tiparesc pe prima linie ultima cifra} close(f){inchid fisierul} end. {se incheie programul principal}
{Functii si proceduri care se folosesc cu fisiere: -assign(nume_variabila:text,nume_fisier:string) - asociez variabilei un fisiser -reset(nume_variabila:text) - deschid in citire -rewrite(nume_variabila:text) - deschid in scriere cu formatare -append(nume_variabila:text) - deschid in scriere -close(nume_variabila:text) - inchid fisierul
cand citesc sau scriu in fisiere in procedurile de citire/scriere bag variabila fisierului la inceput. Exemplu: - read(f, ) - write(f, ) - readln(f, ) - writeln(f, )}