Редактировать текстовый файл

[Amigo31]

Люди добрые, помогите пожалуйста)

Задан текстовой файл и некоторая литера lit. Написать программу, которая заменяет в файле все элементы, равные lit, на пробел.

есть кое-какие наработки,

Program lab08;
Var f:file of char;
s:char;
i:integer;
m:string;
Begin
Assign(f,'1.txt');Reset(f);
While not Eof(f) do
Begin
readln(m);
readln(f,s);
For i:=1 to Length(s) do
if s[i]=m then s[i]:=' ';
write(f,s);
End;
Close(f);
End.

Заранее, спасибо!

[gleensande]

Мне кажется, что проблема здесь в том, что когда из файла считывать, а потом туда записывать новый символ, первый сам собой не исчезнет. И потом, имхо, такие задания обычно делаются путем ввода новых строк в новый файл и переименовки его в старый (сам старый файл удаляется).

P.S. и приведите код в нормальный вид, а то админ не простит