Помогите разобраться с частью кода на языке программирования Pascal ABC.NET

Найдите ошибки пожалуйста:
type
monitoring = record
firm, strit: string[20];
girn: 1..3;
zena:2000..5000
end;
fm = file of monitoring;

procedure zadanie_1(var T: text; var f: fm);
var
temp:monitoring;
c: char;
begin
reset(T);
rewrite(f);
while not eof(T) do
begin
temp.firm := '';
repeat
read(T, c);
temp.firm := temp.firm + c;
until c = ' ';

temp.strit := '';
repeat
read(T, c);
temp.strit := temp.strit + c;
until c = ' ';

temp.girn := ' ';
repeat
read(T, c);
temp.girn := temp.girn + c;
until c = ' ';

temp.zena := '';
repeat
read(T, c);
temp.zena := temp.zena + c;
until c = ' ';

write(f, temp);
end;
end;
Вот задача: В молочных магазинах города Х продается сметана с жирностью 15, 20 и 25 процентов. В городе X был проведен мониторинг цен на сметану. Есть текстовый файл, где содержатся указанные сведения; они имеют следующий формат:
<Фирма> <Улица> <Жирность> <Цена>
где <Фирма> – строка, состоящая не более, чем из 20 символов без пробелов, <Улица> – строка, состоящая не более, чем из 20 символов без пробелов, <Жирность> – одно из чисел – 15, 20 или 25, <Цена> – целое число в диапазоне от 2000 до 5000, обозначающее стоимость одного литра сметаны в копейках. <Фирма> и <Улица>, <Улица> и <Жирность>, а также <Жирность> и <Цена> разделены ровно одним пробелом. Пример строки:
Перекресток Короленко 25 3200
Решить следующие задачи:
a)на основе заданного текстового файла сформировать бинарный файл (файл записей). Каждая запись в бинарном файле содержит информацию ровно из одной строки исходного файла, каждое поле записи — ровно одно данное