Работа с файлами(Pascal ABC)

[Tanya-Manya]

Нуждаюсь в вашей помощи!
Задание выглядит так:

А. Создать файл, содержащий сведения о количестве изделий, собранных сборщиками цеха за неделю. Каждая запись содержит поля – фамилия сборщика, количество изделий, собранных им ежедневно в течение 6-дневной недели, т.е. раздельно – в понедельник, вторник и т.д. . Количество записей – произвольное.
Б. Написать программу, выдающую на печать следующую информацию: фамилию сборщика и общее количество деталей, собранное им за неделю; фамилию сборщика, собравшего наибольшее число изделий, и день, когда он достиг наивысшей производительности труда.

не получилось с этим условием((фамилию сборщика и общее количество деталей, собранное им за неделю))))
1)КАКУЮ ДЛЯ ЭТОГО НУЖНО ВСТАВИТЬ СТРОЧКУ?
2)И можно ли сделать не 1-ый,2-ой...и.т.д дни..а именно понедельник,вторник ...суббота?
код получившейся проги

  program pr;
uses crt;
type
            sbor=record
            sname:string;
            day:array[1..6] of word;
            all:longint;
    end;
var
    i,j:integer;
    n,max,maxday:word;
    sbord:array[1..1000] of sbor;
    f:text;

begin
clrscr;
assign(f,'input.txt');
rewrite(f);
write(Кол-во сборщиков: ');readln(n);
for i:=1 to n do begin
    write('Введите фамилию сборщика: ');
    readln(sbord[i].sname);
    sbord[i].all:=0;
    write(f,sbord[i].sname);
    for j:=1 to 6 do begin
        write('Кол-во деталей за ',j,' день: ');
        readln(sbord[i].day[j]);
        sbord[i].all:=sbord[i].all+sbord[i].day[j];
        write(f,sbord[i].day[j]);
    end;
    write(f,sbord[i].all);
    clrscr;
end;
max:=1;
for i:=1 to n do
    if sbord[i].all>sbord[max].all then max:=i;
    maxday:=1;
    for i:=1 to 6 do
    if sbord[max].day[i]>sbord[max].day[maxday] then maxday:=i;
writeln('Сборщик ',sbord[max].sname,' собрал максимальное кол-во деталей = ',sbord[max].all);
writeln('Собрал максимальное кол-во деталей за ',maxday,' день ');
readln;
close(f);
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования сообщения с решёточкой #)
Не забывайте об этом!
Модератор.

[interacia]

program pr;
uses crt;
type
            sbor=record
            sname:string;
            day:array[1..6] of word;
            all:longint;
    end;
var
    i,j:integer;
    n,max,maxday:word;
    sbord:array[1..1000] of sbor;
    f:text;
Nedelia:array[1..6] of string; // дни недели

begin
Nedelia[1]:='Понедельник';
Nedelia[2]:='Вторник';
Nedelia[3]:='Среду';
Nedelia[4]:='Четверг';
Nedelia[5]:='Пятницу';
Nedelia[6]:='Субботу';
clrscr;
assign(f,'input.txt');
rewrite(f);
write('Кол-во сборщиков: ');readln(n);
for i:=1 to n do begin
    write('Введите фамилию сборщика: ');
    readln(sbord[i].sname);
    sbord[i].all:=0;
    write(f,sbord[i].sname);
    for j:=1 to 6 do begin
        write('Кол-во деталей за ',Nedelia[j],' день: ');
        readln(sbord[i].day[j]);
        sbord[i].all:=sbord[i].all+sbord[i].day[j];
        write(f,sbord[i].day[j]);
    end;
    write(f,sbord[i].all);
    clrscr;
end;
    max:=1;
 writeln('               Ф.И.О итого за неделю ');
    for i:=1 to n do
    begin
    writeln(sbord[i].sname:20,' ',sbord[i].all:15);
    if sbord[i].all>sbord[max].all then max:=i;
    end;
    maxday:=1;
    for i:=1 to 6 do if sbord[max].day[i]>sbord[max].day[maxday]  then maxday:=i;
writeln('Сборщик ',sbord[max].sname,' собрал максимальное кол-во деталей = ',sbord[max].all);
writeln('Собрал максимальное кол-во деталей за ',Nedelia[maxday],'.');
readln;
close(f);
end.

Такой вариант.

[Tanya-Manya]

Спасибо огромное!