Написать программу которая создаэт текстовый файл даных.

[SashOK1991]

В файле записано: день недели, число пар, общая продолжительность занятий (в расчете на 1 пару 1 ч. 20 мин и 20 мин. Между парами). Посчитать общее количество пар и продолжительность занятий в неделю и вывести названия дней недели, которые имеют одинаковое количество пар.

[SashOK1991]

Вот код:

uses WinCrt;
var ft:text;
s,g,c,d,p:string;
begin
Writeln('Ukagit shlah kudu zberegtu file i yogo name= ');
Readln(s);
Assign(ft,s);
Rewrite(ft);
repeat
Write('den tu*nya');
Readln(g);
Write('kilkist par');
readln(c);
Write('truvalist zanyat');
readln(d);
Write(ft,s,', ',g,', ',c,', ',d,' ',p);
Writeln('Prodovgutu zapusy chu stvorutu file i zberegtu zapusy v njomy? (Y/N)');
until readkey in ['N','n'];
Close(ft);

но что то не получается (((

Помогите пожалуйста...