Программа по замене одно-трех значных чисел в тексте

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Memo2: TMemo;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
{
 
Программа выполняет в тексте поиск натуральных чисел по таким критериям:
1. [N (число сразу без пробела после квадратной скобки);
2. [ N (число после одного пробела после квадратной скобки);
3. ; N (число через пробел после точки с запятой).
4. ;N (число сразу после точки с запятой).
Если одно из вышеприведенных условий совпадает,
мы сравниваем найденное число N с числом M введенным с клавиатуры и
выполняем следующие варианты программы (их можно выбирать):
1) Если текущее найденное число N больше введенного числа М,
то в число N увеличивается на единицу.
2) Если найденное число N равно введенному числу М, то число N заменяется на
русскую букву «Ы». Если найденное число N больше введенного числа M,
то число N уменьшается на единицу.
 
}
 
procedure TForm1.Button1Click(Sender: TObject);
var
 s, s1, v: string;
 i, i1, M, N: integer;
 flg, fgl: boolean;
begin
 s:= Memo1.Text;
 M:= StrToInt(Edit1.Text);
 Memo2.Clear;
 s1:= '';
 flg:= false;
 i1:= 0;
 
 for i := 1 to Length(s) do
  begin
   s1:= s1 + s[i];
   if (s[i] = '[') or (s[i] = ';') then flg:= true;
   if flg then
    begin
     fgl := s[i+1] = ' ';
     if s[i] in ['0'..'9'] then inc(i1);
     if (not (s[i+1] in ['0'..'9'])) and (not fgl) then
      begin
       v:= Copy(s1, (Length(s1)-i1)+1, Length(s1));
       flg:= false;
       if v <> '' then
         begin
          N:= StrToInt(v);
          if N > M then v:= IntToStr(N+1);
          if N = M then v:= 'Ы';
          if N < M then v:= IntToStr(N-1);
          Delete(s1, (Length(s1)-i1)+1, Length(s1));
          s1:= s1 + v;
          i1:= 0;
         end;
      end;
    end;
  end;
 Memo2.Text:= s1;
end;
 
end.