Задача:Распечатать список тех учителей школы, которые преподают математику и информатику, указать стаж их работы и недельную нагрузку.
Type Uchitel=record
fam: string[15];
nam: string[15];
otch: string[20];
predmet: string[30];
stazh: 1..50;
nagruzka: string [10];
end;
var a:array[1..100] of Uchitel;
fin,fout:text;
i,j:integer;
BEGIN
assign(fin, 'uch.pas');
reset(fin);
i:=0;
repeat i:=i+1;
with a[i] do
readln(fin,fam,nam,otch,predmet,stazh,nagruzka);
until eof(fin);
close(fin);
assign(fout,'spisok.pas');
rewrite(fout);
for j:=1 to i do
if (a[i].predmet='informatika') or (a[i].predmet='matematika') then
writeln(fout,a[i].fam,a[i].nam,a[i].otch,a[i].stazh,a[i].nagruzka);
close(fout);
END.
К ней я предварительно создаю файл uch.pas в той же папке...Но прога не работает! Очень прошу о помощи.Найдите ошибку!