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

[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.

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

[min@y™]

Это именно на турбопаскакале надо делать?
И истчо: читать/писать файлы побайтно - это некомильфо.

[Amigo31]

На PascalABC, желательно

[min@y™]

На PascalABC, желательно

ваша хотелка отклонена. Причина: "фу-ацтой".
Кто вас заставляет там юзать этот лютый кал?