В модулях не шарю, и Паскаля пока нет так что прогу пока так написал на глаз:
ogram hff;uses crt;
var f1:text;
z,m,n:integer; k,f:string;
begin clrscr;
writeln('Введите имя файла');
readln(f);
assign(f1,f);
reset(f1);
n:=0;
while not eof(f1) do
begin
writeln('Введите символ:');
readln(k); } writeln(k);
m:=pos(f1,k); writeln(m);
if m=0 then
writeln('Такого символа нет!')
begin
readln;
exit;
end
else
n:=n+1;
delete('C:\privet.txt',m,1);
end;
close(f1);
end.