// Программа загружает файл, если есть, просит ввести 7 строк
// и затем сохраняет обратно. Если файла нет, он создается.

Program WeekDays;
uses System,Classes;

var SL:TStringList;
S:string;
i:integer;

const FilName='NEDELYA.TXT';

begin
SL:=TStringList.Create;
if FileExists(FileName) then SL.LoadFromFile(FileName);
for i:=1 to 7 do
begin
Readln(S);
SL.Add(S);
end;
SL.SaveToFile(FileName);
SL.Free;
end.

=====

//Программа считывает текстовый файл и выводит на экран

Program ShowTextFile;
uses System,Classes;

var SL:TStringList;
S:string;
i:integer;

const FilName='NEDELYA.TXT';

begin
SL:=TStringList.Create;
SL.LoadFromFile(FileName);
for i:=1 to SL.Count-1 do Writeln(SL[i]);
SL.Free;
end.