ПОМОГИТЕ ПОЖАЛУЙСТА С ИНФОРМАТИКОЙ!!!НУЖНО СРОЧНО!!!ЯЗЫК ПРОГРАММИРОВАНИЯ ПАСКАЛЬ.

// Программа загружает файл, если есть, просит ввести 7 строк// и затем сохраняет обратно. Если файла нет, он создается.Program WeekDays;uses System,Classes;var SL:TStringList;S:string; i:integer;const FilName='NEDELYA.TXT';beginSL:=TStringList.Create;if FileExists(FileName) then SL.LoadFromFile(FileName);for i:=1 to 7 dobeginReadln(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';beginSL:=TStringList.Create;SL.LoadFromFile(FileName);for i:=1 to SL.Count-1 do Writeln(SL[i]);SL.Free;end.