ПОМОГИТЕ ПОЖАЛУЙСТА С ИНФОРМАТИКОЙ!!!Необходимо Безотлагательно!!!ЯЗЫК ПРОГРАММИРОВАНИЯ ПАСКАЛЬ.

1.
var f:text; s:string; r:integer;
begin
assign(f,'nedelya.txt');
rewrite(f);
repeat
 write('Введите денек недели: ');
 readln(s);
 writeln(f,s);
 write('Повторить (1-да, 0-нет)?');
 readln(r);
until r=0;
close(f);
end.

Пример:
Введите денек недели: понедельник
Повторить (1-да, 0-нет)?1
Введите день недели: вторник
Повторить (1-да, 0-нет)?1
Введите день недели: среда
Повторить (1-да, 0-нет)?0

Содержимое файла nedelya.txt:
понедельниквторниксреда

2.
var f:text; s:string; r:integer;
begin
assign(f,'nedelya.txt');
append(f);
repeat
 write('Day of the week: ');
 readln(s);
 writeln(f,s);
 write('Repeat (1-yes, 0-no)?');
 readln(r);
until r=0;
close(f);
end.

Пример:
Day of the week: Thursday
Repeat (1-yes, 0-no)?1
Day of the week: Friday
Repeat (1-yes, 0-no)?1
Day of the week: Saturday
Repeat (1-yes, 0-no)?0

Содержимое файла nedelya.txt:
пн
вторник
среда
Thursday
Friday
Saturday

3.
var f:text; s:string;
begin
assign(f,'nedelya.txt');
reset(f);
while not eof(f) do
begin
 readln(f,s);
 writeln(s);
end;
close(f);
end.

Итог:
пн
вторник
среда
Thursday
Friday
Saturday