Кто подскажет зающий в программировании...Где то там закралась ошибка...Заранее спасибо

program SuperMegaKrutayaProga;uses crt;type zavod = record name:string; plan:integer; fact:integer; workers: integer; end;const MAX_N = 100; {¬ ЄбЁ¬ «м­®Ґ Є®«ЁзҐбвў® ЇаҐ¤ЇаЁпвЁ©}var pr:array [1..MAX_N] of zavod; {¬ ббЁў ЇҐа¤ЇаЁпвЁ©} i,n:integer; {n - Є®«ЁзҐбвў® ЇаҐ¤ЇаЁпвЁ©, ®ЇЁб ­­ле ў д ©«Ґ} fin,fout:text; {д ©«л ўў®¤  Ё ўлў®¤  ¤ ­­ле} n_fin,n_fout:string;procedure percent(var pr:array of zavod; const n:integer);var i:integer;begin writeln(fout,' % ўлЇ®«­Ґ­Ёп Ї« ­  Є ¦¤®Ј® ЇаҐ¤ЇаЁпвЁп:'); for i:=0 to n-1 do begin writeln(fout,i+1,'. ',pr.name,':',pr.fact/pr.plan*100:7:2,'%') end;end;function complete(var pr:array of zavod; const n:integer):integer;var i,kol:integer;begin kol:=0; for i:=0 to n-1 do if pr.plan<=pr.fact then inc(kol); complete:=kol;end;procedure min_plan(var pr:array of zavod; const n:integer);var i,min:integer;begin min:=pr[0].plan; for i:=1 to n-1 do if min>pr.plan then min:=pr.plan; writeln(fout,'ЏаҐ¤ЇаЁпвЁп б ­ Ё¬Ґ­миЁ¬ Ї« ­®ўл¬ в®ў а®®Ў®а®в®¬:'); for i:=0 to n-1 do if min = pr.plan then writeln(fout,pr.name,' б в®ў а®®Ў®а®в®¬ ў ',pr.plan);end;procedure min_workers(var pr:array of zavod; const n:integer);var i,min:integer;begin min:=pr[0].workers; for i:=1 to n-1 do if min>pr.workers then min:=pr.workers; writeln(fout,'ЏаҐ¤ЇаЁпвЁп б ­ Ё¬Ґ­миЁ¬ Є®«ЁзҐбвў®¬ а Ў®в­ЁЄ®ў:'); for i:=0 to n-1 do if min = pr.workers then writeln(fout,pr.name,' б Є®«ЁзҐбвў®¬ а Ў®в­ЁЄ®ў ',pr.workers);end;procedure sort(var pr:array of zavod;const n:integer);var i,j,t:integer;begin for i:=0 to n-1 do for j:=0 to n-i-2 do if pr[j].fact>pr[j+1].fact then begin t:=pr[j].fact; pr[j].fact:=pr[j+1].fact; pr[j+1].fact:=t; end;end;begin clrscr; writeln('‚ўҐ¤ЁвҐ Ё¬п д ©«  ўў®¤ :'); readln(n_fin); assign(fin, n_fin); reset(fin); writeln('‚ўҐ¤ЁвҐ Ё¬п д ©«  ўлў®¤ :'); readln(n_fout); assign(fout,n_fout); rewrite(fout); readln(fin,n); for i:=1 to n do begin readln(fin,pr.name); readln(fin,pr.plan); readln(fin,pr.fact); readln(fin,pr.workers); end; percent(pr,n); writeln(fout); writeln(fout,'ЏаҐ¤ЇаЁпвЁ©, ўлЇ®«­ЁўиЁе Ї« ­: ',complete(pr,n)); writeln(fout); min_plan(pr,n); writeln(fout); min_workers(pr,n); sort(pr,n); close(fout); close(fin); write('Џа®Ја ¬¬  § Є®­зЁ«  бў®о а Ў®вг. Ќ ¦¬ЁвҐ «оЎго Є« ўЁиг ¤«п ўл室 ...'); readkey; end.