Алеся Зубова

// Составить и отладить программу, заменяющую во введенном строковым выражении указанную подстроку нужным числовым значением в строковом представлении : max(x,y), где x и y – числа.

Program CPascal;

var st,subst,temp:string;
    x,y,index:integer;

Begin
Write('Введите строку: '); Readln(St);
Write('Введите подстроку: '); Readln(SubSt);
Write('Введите число X: '); Readln(X);
Write('Введите число Y: '); Readln(Y);

if Pos(SubSt,St) = 0 then Writeln('Вхождений подстроки в строку нет :(')
                     else
                         Begin
                         if X > Y then
                                      Begin
                                      Str(X,Temp); // Преобразовываем в строку
                                      While Pos(SubSt,St) <> 0 do
                                            Begin
                                            Index:=Pos(SubSt,St); // Запоминаем индекс
                                            Delete(St,Index,Length(SubSt)); // Удаляем подстроку
                                            Insert(Temp,St,Index); // Вставляем подстроку
                                            end;
                                      // Выводим результат...
                                      Writeln(St);
                                      end
                                  else if X < Y then
                                                    Begin
                                                    Str(Y,Temp); // Преобразовываем в строку
                                                    While Pos(SubSt,St) <> 0 do
                                                          Begin
                                                          Index:=Pos(SubSt,St); // Запоминаем индекс
                                                          Delete(St,Index,Length(SubSt)); // Удаляем подстроку
                                                          Insert(Temp,St,Index); // Вставляем подстроку
                                                          end;

                                                    // Выводим результат...
                                                    Writeln(St);
                                                    end
                                                else Writeln('Числа равны :)');
                         end;
end.