Buna. Doresc sa fac un program in pascal (un catalog). Acesta este codul: rogram catalog_atestat; uses crt; type note=record nota:array[1..10]of string[8]; abs:array[1..10] of string[5]; end; var catalog:array[1..30,1..20] of note; elevi:array[1..30]of string[25]; materii:array[1..20] of string[15]; e,f,g,h,z:text; procedure aranjare; {aranjeaza elevii in ordine alfabetica} var aux:string[25]; i,j:byte; begin for i:=1 to n-1 do for j:=2 to n do if elevi>elevi[j] then begin aux:=elevi; elevi:=elevi[j]; elevi[j]:=aux; end; end; procedure citireelevi; {creeaza fisierul text cu numele elevilor} begin writeln('Dati nr. de elevi:'); readln(n); assign(f,'c:\bp\bin\atestat\elevi.txt'); rewrite(f); for i:=1 to n do begin writeln('Dati numele elevului ',i); readln(elevi); end; aranjareelevi; for i:=1 to n do writeln(f,elevi); clrscr; end; procedure citirematerii; {creeaza fisierul text cu materii} begin writeln('Dati nr. de materii:'); readln(m); assign(g,'c:\bp\bin\atestat\materii.txt'); rewrite(g); for i:=1 to m do begin writeln('Dati materia:'); readln(materii); writeln(g,materii); end; clrscr; end; procedure initcatalog; var i,j,k:byte; begin for i:=1 to n do for j:=1 to m do for k:=1 to 10 do begin catalog[i,j].nota[k]:=' '; catalog[i,j].abs[k]:=' '; end; end; procedure crearecatalog; begin citireelevi; citirematerii; initcatalog; end; procedure salvare; begin assign(h,'c:\bp\bin\atestat\note.txt'); assign(e,'c:\bp\bin\atestat\absente.txt'); rewrite(e); rewrite(h); for i:=1 to n do for j:=1 to m do begin for k:=1 to 10 begin write(h,catalog[i,j].nota[k],' '); write(e,catalog[i,j].abs[k],' '); end; writeln(h); writeln(e); end; end; Il rulez, creez catalogul cu elevi, materii si note/absente dar nu-mi functioneaza procedura de citire , care ar trebui sa citeasca datele dintr-un catalog creat anterior, ca sa pot adauga date in plus. Ma poate ajuta cineva cu ceva indicatii?