Задачи по строкам

var
  str: string;
  i: integer;
  f: boolean;
 
begin
  i := 1;
  readln(str);
  while i <= length(str) do
  begin
    if str[i] = ' ' then
      str[i] := ':';
    if str[i] in ['0'..'9'] then
      f := true;
    if str[i] = 'а' then
      if (length(str) > i) and (str[i + 1] = 'б') then
      begin
        delete(str, i, 2);
        i := i - 1;
      end; 
    i := i + 1;
  end;
  writeln(str);
  if f then
    write('есть цифры')
  else
    write('нет цифр');
end.

var
str:string;
i:integer;
f:boolean;
begin
readln(str);
while pos('аб',str)<>0 do
  begin
    delete(str,pos('аб',str),2);
  end;
for i:=1 to length(str) do
  begin
    if str[i] = ' ' then
     str[i]:=':';
    if str[i] in ['0'..'9'] then
      f:=true;
  end;
writeln(str);
if f then
  write('есть цифры')
  else
  write('нет цифр');
end.

var
  str, sub_s: string;
  i, len: integer;
  min: int64;
 
begin
  i := 1;
  min := maxint64;
  readln(str);
  len := length(str);
  while i <= len do
  begin
    if (str[i] >= '0') and (str[i] <= '9') then  // разбиваем строку на числа
    begin
      sub_s := sub_s + str[i];
      i := i + 1;
    end
      else
    begin
      if strtoint(sub_s) < min then
        min := strtoint(sub_s); //сохраняем минимальное число
      sub_s := '';
      while (i < len) and (str[i] = ' ') do //проходим все пробелы до следующего числа
        i := i + 1; 
    end;
  end;
  if str[len] <> ' ' then // на тот случай, если строка не заканчивается пробелом
    if strtoint(sub_s) < min then
        min := strtoint(sub_s);
  write(min);
 end.