функция Writeln(f,w); не перезаписывает файл - Pascal ABC - Ответ 10150977

uses crt;
var
d: char;
{a,Val,a1,}s,u,w,DeleteFile_string: string;
{a3:array of string;}
f: Text;
I,ds: integer;
begin
Writeln(' нажите клавишу, сделайте свой выбор :');
Writeln(' * * * * * * * * * * * * * * * * * * *1 * * * *Insert дописать в файл: ');
Writeln(' * * * * * * * * * * * * * * * * * * *2 * * * *Delete удалить из файл: '); 
Writeln(' * * * * * * * * * * * * * * * * * * *3 Wiev показать на матрицу файл: ');
Writeln(' * * * * * * * * * * * * * * * * * * *4, Esc  * * *выйти из программы: ');
d := ReadKey;
case d of
#49:
begin
Writeln(' нажата клавиша 1 дописать на файл: ');
Write(' Напишите название файл, в который нужно дописать текст: ');
Readln(u);// Writeln(u);
Assign(f,u);
if fileexists(u) then
begin
append(f);
Readln(s);
Writeln(f,s);
{Writeln(f,'Добавлено в файл.');}
end
else
begin
rewrite(f);
Writeln(f,'Новый файл');
end;
close(f);
KeyPressed;
end;
#50: begin Writeln(' нажата клавиша 2');
Write(' Введіть назву файлу, який треба прочитать: ');
Readln(s);{s:='1.txt';}
Assign(f,s);
Reset(f);
Writeln(' file IsConsoleApplication ', s, ' Assigned, можно показать на матрицу:');
{i:=1;}
while not Eof(f) do
begin {Writeln(' файл прочитан в переменную w');}
{SetLength(a3,i);}{первый символ 1}
readln(f,w);{первая строчка масива строчек 0 } end;
Writeln(' Введите строчку которую нужно удалить : ');
readln(DeleteFile_string);
if DeleteFile_string='1 file' then
CloseFile(f);
Assign(f,s);
Rewrite(f,w);
Writeln(f,w);
{ds:=ds+1;}
{I:=I+1;}
{Writeln(' ',w,' ',i,' строчек нужно удалить ',ds);}
{CloseFile(f,s); Assign(f,s);append(f);
Rewrite(f,s);}
{Writeln(f,a3[3]);}
KeyPressed;end;{delete}
 
#51:
begin
Writeln(' нажата клавиша 3');
Write(' Введіть назву файлу, який треба прочитать: ');
Readln(s);{s:='1.txt';}
Assign(f,s);
Reset(f);
Writeln(' file IsConsoleApplication ', s, ' Assigned, можно показать на монитор:');
while not Eof(f) do
begin {Writeln(' файл прочитан в переменную a3[i]');}
i:=1;
readln(f,w);{Close(f);}
{SetLength(a3);255}
{Writeln file}
I:=I+1;
Writeln(' ',w);
end;
KeyPressed; end;
 
 
#52:
begin
Writeln(' нажата клавиша 4');exit;
KeyPressed; 
end;
#27: begin Writeln(' нажата клавиша Esc');KeyPressed; end;
end;
end.