заполнение записей из текстового файла

Здравствуйте!

Есть текстовый файл из 10 строк, вида: Фамилия, Факультет, Группа, Оценка.
Составлена программа забора данных из файла input.txt и вывод данных в файл output.txt.
Но программа выводит ошибку неверного числового формата при вводе. Выяснил, что это происходит потому, что программа считывает сразу строку целиком, не делит информацию по полям записи. Вопрос: как сделать так, чтобы строка считывалась поэлементно.
const n=10;
type zap=record
fam:string;
fak:string;
gr:string;
oc:integer;
end;
var spisok:array[1..n] of zap;
i:integer; f:text;
BEGIN
assign(f,'c:\oaip\input.txt');
reset(f);
for i:=1 to n do
with spisok do
begin
readln(f,fam,fak,gr,oc);
end;
close (f);
assign(f,'c:\oaip\output.txt');
rewrite(f);
for i:=1 to n do
with spisok do
begin
writeln(f,fam,fak,gr,oc);
end;
close(f);
END.