Код для Задачи

[Heng]

Даны натуральное число n, символы S1,...,Sn. Преобразовать последовательность S1,...,Sn, удалив из каждой группы идущих подряд цифр, в которой более двух цифр, все цифры, начиная с третьей

Я тут накидал, но чето непрет, Help me !

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Edit2: TEdit;
    Label2: TLabel;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button1Click(Sender: TObject);

var
i,j,n:integer;
str:string;
a: Array [0..9] of string;
found:boolean;

begin
str:=edit1.text;
found:=false;
repeat

if str[i]<>a[i] then found:=true
else n:=n+1;
until str[i]=a[i];

if n=3 then begin
for str[i+3] to str[i+n]do
begin
delete(cource,i+3,i+n);

end;
end;
edit2.Text:=str;

end;
end.