Описание программы

procedure TForm1.Button1Click(Sender: TObject);
var
s,s1:string;
i,j,max:integer;
begin
s:=Edit1.Text;
max:=-1;
i:=1;
while i<=length(s) do
if s[i] in ['0'..'9'] then
begin
s1:='';
j:=i;
while(j<=length(s))and(s[j]in ['0'..'9'])do
begin
s1:=s1+s[j];
j:=j+1;
end;
if strtoint(s1)>max then max:=strtoint(s1);
i:=i+length(s1);
end
else
i:=i+1;
if max=-1 then
memo1.Text:='Öèôð íåò'
else
memo1.Lines.add (inttostr(max));
end;
end.

// осуществляется поиск в значении Edit1.Text подстрок
// состоящих из последовательно расположенных цифр
// максимальное найденное число выводится в memo1
procedure TForm1.Button1Click(Sender: TObject);
var s, s1:string;
    i, j,max:integer;
begin
  // сохраняем значение Edit1.Text в переменную s
  s := Edit1.Text;
  max := -1;
  i := 1;
 
  // проходим по каждому элементу строки s до конца строки
  while i <= length(s) do
  begin
    // если символ в s[i] является цифрой, делаем следующее
    if s[i] in ['0'..'9'] then
    begin
      s1 := '';
      j := i;
 
      // проходим от найденного символа по всем подряд встречающимся символам
      // при условии, что это цифры
      while(j <= length(s)) and (s[j] in ['0'..'9']) do
      begin
        // каждый элемент строки s, при условии, что это цифра, добавляем к строке s1
        s1 := s1 + s[j];
        j := j + 1;
      end;
 
      // преобразуем строку s1 в число и проверяем
      // если полученное число больше значения, которое хранится в переменной max
      // обновляем значение в max
      if strtoint(s1) > max then
        max := strtoint(s1);
 
      // увеличиваем счетчик цикла на длину строки s1
      // чтобы пропустить ранее найденную последовательность цифр, сохраненную в s1
      i := i + length(s1);
    end
    else
      // увеличиваем счетчик цикла на 1( это происходит если текущий элемент строки не является цифрой)
      i := i + 1;
  end;
 
  // если значение хранимое в max отрицательно
  // вероятно выводим в memo1 сообщение о том, что в строке s цифр не найдено
  if max =- 1 then
    memo1.Text := 'Г–ГЁГґГ° Г*ГҐГІ'
  // в противном случае выводим в memo1 значение переменной max
  // т.е. найденное максимальное числовое значение
  else
    memo1.Lines.add (inttostr(max));
  end;
end;

// осуществляется поиск в значении Edit1.Text подстрок
// состоящих из последовательно расположенных цифр
// максимальное найденное число выводится в memo1
procedure TForm1.Button1Click(Sender: TObject);
var s, s1: string; // объявление строковых переменных s, s1
    i, j, max: integer; // объявление целочисленных переменных i, j, max
begin
  // сохраняем значение Edit1.Text в переменную s
  s := Edit1.Text;
  // инициализация переменной max значением -1
  max := -1;
  // инициализация переменной i, 
  // выступающей в качестве счетчика цикла, значением 1
  i := 1;
 
  // проходим по каждому элементу строки s до конца строки
  while i <= length(s) do
  begin
    // если символ в s[i] является цифрой, делаем следующее
    if s[i] in ['0'..'9'] then
    begin
      // очищаем строку s1
      s1 := '';
      // переменной j, выступающей в качестве счетчика вложенного цикла,
      // присваиваем значение переменной i
      j := i;
 
      // проходим от найденного символа по всем подряд встречающимся символам
      // при условии, что это цифры
      while(j <= length(s)) and (s[j] in ['0'..'9']) do
      begin
        // каждый элемент строки s, при условии, что это цифра, добавляем к строке s1
        s1 := s1 + s[j];
        // увеличиваем значение переменной j на 1
        j := j + 1;
      end;
 
      // преобразуем строку s1 в число и проверяем
      // если полученное число больше значения, которое хранится в переменной max
      // обновляем значение в max
      if strtoint(s1) > max then
        max := strtoint(s1);
 
      // увеличиваем счетчик цикла на длину строки s1
      // чтобы пропустить ранее найденную последовательность цифр, сохраненную в s1
      i := i + length(s1);
    end
    else
      // увеличиваем счетчик цикла на 1( это происходит если текущий элемент строки не является цифрой)
      i := i + 1;
  end;
 
  // если значение хранимое в max отрицательно
  // вероятно выводим в memo1 сообщение о том, что в строке s цифр не найдено
  if max =- 1 then
    memo1.Text := 'Г–ГЁГґГ° Г*ГҐГІ'
  // в противном случае выводим в memo1 значение переменной max
  // т.е. найденное максимальное числовое значение
  else
    memo1.Lines.add (inttostr(max));
  end;
end;