Программа на записи

[art.marked]

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

Type Uchitel=record
       fam: string[15];
       nam: string[15];
       otch: string[20];
       predmet: string[30];
       stazh: 1..50;
       nagruzka: string [10];
       end;
uses crt;
var a:array[1..100] of Uchitel;
    fin,fout:text;
    i,j:integer;
BEGIN
clrscr;
assign(fin, 'uchitel.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.

uchitel.pas здесь является импортируемым файлом, но... я не знаю как правильно туда внести данные. То есть разбить на элементы.
Заранее спасибо.

UPD. Решил сам, можно тему закрывать(или удалять).