Заменить во введенном строковом выражении указанную подстроку нужным числовым значением

program Mini;
uses crt;
 
var s, p: string;
    i, j, k, x, y, z: integer;
begin
writeln('Input string:');
readln(s);
p := '';
i := Pos('min(', s);
if i = 0 then writeln(s)
  else
  begin
  k := i;
  j := i + 4;
  while s[j] <> ',' do 
    begin 
    p := p + s[j];
    j := j + 1;
    end;
  x := StrToInt(p);
  p := '';
  j := j + 1;
  while s[j] <> ',' do 
    begin 
    p := p + s[j];
    j := j + 1;
    end;
  y := StrToInt(p);
  p := '';
  j := j + 1;
  while s[j] <> ')' do 
    begin 
    p := p + s[j];
    j := j + 1;
    end;
  z := StrToInt(p);
  j := j + 1;
  if x > y then x := y;
  if x > z then x := z;
  p := IntToStr(x);
  i := 1;
  while i < k do 
    begin
    write(s[i]);
    i := i + 1;
    end;
  write(p);
  for i := j to Length(s) do write(s[i]);
  end;
readln;
end.

program Mini;
uses crt;
 
var s, p: string;
    i, j, k, x, y, z, err: integer;
 
//подстрока min(x,y,z) после запятых может содержать пробелы
begin
writeln('Input string:');
readln(s);
p := ''; //инициализируем буфер строки
i := Pos('min(', s); //поиск 'min('
if i = 0 then writeln(s) //не найдено, печатаем строку как есть
  else //найдено
  begin
  k := i; //запоминаем позицию в строке, где встретился 'min('
  j := i + 4; //'min(' - 4 символа - игнорируем
  while s[j] <> ',' do //до запятой - x, читаем в строку
    begin 
    p := p + s[j];
    j := j + 1;
    end;
  val(p, x, err); //преобразуем строку в число
  if err <> 0 //если есть ошибка в числе
    then begin
    write('Error'); readln; exit;
    end;
  p := ''; //инициализируем буфер строки
  j := j + 1; //запятую игнорируем
  while s[j] = ' ' do j := j + 1; //если есть пробелы перед y - игнорируем
  while s[j] <> ',' do //до запятой - y, читаем в строку
    begin 
    p := p + s[j];
    j := j + 1;
    end;
  val(p, y, err); //преобразуем строку в число
  if err <> 0 //если есть ошибка в числе 
    then begin
    write('Error'); readln; exit;
    end;
  p := ''; //инициализируем буфер строки
  j := j + 1; //запятую игнорируем
  while s[j] = ' ' do j := j + 1; //если есть пробелы перед z - игнорируем
  while s[j] <> ')'  do //до скобки - z, читаем в строку
    begin 
    p := p + s[j];
    j := j + 1;
    end;
  val(p, z, err);  //преобразуем строку в число
  if err <> 0 //если есть ошибка в числе 
    then begin
    write('Error'); readln; exit;
    end;
  j := j + 1; //скобку игнорируем
  if x > y then x := y; Выясняем минимум
  if x > z then x := z;
  //печатаем то, что было до 'min(', если есть что печатать
  if k > 1 then for i := 1 to k do  write(s[i]);
  write(x); //печатаем найденный минимум
  //печатаем то, что было после 'min(...)', если есть что печатать
  if j < Length(s) then for i := j to Length(s) do write(s[i]);
  end;
readln;
end.