Обработка файлов (Pascal)

[puporev]

Если это надо сделать в строке один раз, то так:

uses crt;
var s:string;
    c:char;
    i,t,k:integer;
begin
clrscr;
write('s: ');readln(s);//строка
write('c=');readln(c);  //символ
for i:=1 to length(s) do
if s[i]=c then   //нашли первый символ
    begin
     t:=i;  //запоминаем
     break;  //выходим из цикла
    end;
for i:=t+1 to length(s)do
if s[i]=c then  //находим второй символ
    begin
     k:=i;   //запоминаем
     break;  //выходим из цикла
    end;
delete(s,t+1,k-t-1); //удаляем часть строки между символами
writeln(s);
readln
end.