Файлы и записи., Уже вторая задача,которую не могу решить! Опции

[gryzlik]

Помогите, пожалуйста...В пятницу нужно сдать, а программа не работает...Подскажите, где ошибка!
Задача:Распечатать список тех учителей школы, которые преподают математику и информатику, указать стаж их работы и недельную нагрузку.

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 в той же папке...Но прога не работает! Очень прошу о помощи.Найдите ошибку!