Замена последовательности символов в строке

Задача: 

Найти в строке все заданные последовательности символов и заменить их другой последовательностью.

Описание переменных: 

f – файловая переменная текстового типа;
str – строка из файла;
s_out – заменяемая последовательность символов;
s_in – вставляемая последовательность символов.

Алгоритм решения задачи: 

1. Открываем текстовый файл для чтения.
2. Присваиваем значения переменным s_out и s_in.
3. Выясняем длину s_out.
4. Пока не будет достигнут конец файла
____a. Считываем содержимое файла в переменную str.
____b. Пока счетчик не равен нулю
________i. Присваиваем ему индекс первого символа совпавшей последовательности.
________ii. Удаляем и вставляем последовательности символов.

Программа на языке Паскаль: 

var
    s_out, s_in, str: string;
    f     : text;
    i, len : integer;
begin
    assign(f,'c:/text.txt');
    reset(f);
    writeln('What cut? ');
    readln(s_out);
    writeln('What paste? ');
    readln(s_in);
    len := length(s_out);
    while not Eof(f) do begin
        readln(f,str);
        i := 1;
        while i<>0 do begin
            i := pos(s_out,str);
            if i<>0 then begin
                delete(str,i,len);
                insert(s_in,str,i);
            end;
        end;
        writeln(str);
    end;
 
    close(f);
readln
end.

Примечания: 

Если заменяемое слово имеет позицию 0, то оно не заменяется.

Комментарии

ПОМОГИТЕ ПОЖАЛУЙСТА РЕШИТЬ

Дана строка, если длина четная то удалить каждый второй символ, если нечетная удалить первый и последний символ

<code>

var
s: string;
len,i: integer;
BEGIN
  len:=length(s);
 
  if (len mod 2=0) then
  begin
    for i:=1 to len do
    begin
      if (i mod 2=0) then
        delete(s,i,1);
    end; 
  end
  else
  begin
    delet(s,1,1);
    delete(s,len,1);
  end;
END.

Помогите решить

Ввести строку S, содержащую строчные и прописные буквы. Вывести:
• в столбик символы и их коды для этой строки;
• строку, преобразовав все символы в верхний регистр;
• строку, преобразовав все символы в нижний регистр.

var s: string; i, l:

var
    s: string;
    i, l: byte;
    a: byte;
begin
    readln(s);
    l := length(s);
    for i:=1 to l do
        writeln(s[i],' - ',ord(s[i]));
    a := ord('a') - ord('A');
    for i:=1 to l do
        if (s[i] >= 'A') and (s[i] <= 'Z') then
            write(chr(ord(s[i]) + a))
        else
            write(s[i]);
    writeln;
    for i:=1 to l do
        if (s[i] >= 'a') and (s[i] <= 'z') then
            write(chr(ord(s[i]) - a))
        else
            write(s[i]);
    writeln;
end.

Решение задачи

Данное решение не является полностью корректным, так как пропущена часть программы, которая отвечает за "перезапись" содержимого файла. То есть, фактически, предоставленный вариант останавливается на моменте, когда мы заменяем слово в записанной из файла строке. Но мы не переписываем содержимое файла, поэтому никаких фактических изменений не будет.

задача

помгоите плиззззззз!!!!!! срочно нужно решить задачу : поиск min и max елементов последовательности a[n] удовлетворяющую заданному условию

дан файл компонентами которого являются символы, записанные в не

дан файл компонентами которого являются символы, записанные в несколько строк найти количество символов в каждой строк, результат записать в конце каждой строки

помогите с задачкой!!!!

по обработке строк....
текст задания:

Входной текст содержит список арифметических констант в форме десятичных чисел с плавающей запятой. Элементы списка разделены между собой одним или несколькими пробелами. Перенести в преобразованный текст список констант, которые превышают по модулю допустимое для типа real значение (1E38). Элементы списка в выходном файле разделить между собой запятыми, а после каждой запятой записать один пробел. Для анализа констант процедуры Val и Str не использовать. Например, для входного списка
1.2E+12 -43.677E37 2567.234E+34 0.00087E45 14.6E-5 -6.6E+38 777E101
получим -43.677E37, 2567.234E+34, 0.00087E45, -6.6E+38, 777E101.
___________
заранее благодарен

По оотке строковых данных

помогите пожалуйста с Задачами срочно!
Дана строка символов S, в которой есть два символа двоеточие. Определите количество символов между ними.

Дана строка символов S. Определите количество латинских букв в строке.

Дана строка символов S. Удалите из нее все цифры или выдайте сообщение, что цифр в строке нет.
Заранее огромное спасибо

как понял ты уже получил 2

как понял ты уже получил 2 ??)