Рекурсия

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
   s: string;
   i,j,k: integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var s: string;
    i,j,k: integer;
begin
 s := Edit1.text;
 if s='' then
 showmessage('Ââåäèòå ïðåäëîæåíèå')
 else
 k:= 0;
 for i:= length(s) downto 1 do
 begin
  if (s[i] = '(') and
     (s[i] = ')') and
     (s[i] = ']') and
     (s[i] = '[') then
  inc(k);
 end;
 for i:=length(s) downto 1 do
  begin
  if not (s[i] in ['(',')','[',']']) then delete(s,i,1);
  end;
 edit2.text:=s;
 for i:=1 to length(s) do
 for j:=1 to 100 do
  begin
   Delete(s,Pos('()',s),2);
   Delete(s,Pos('[]',s),2);
  end;
 edit3.Text:=s;
 if edit2.Text='' then
 exit
 else
 if edit3.Text='' then
 showmessage('Âåðíî')
 else
 showmessage('Íåâåðíî');
end;
end.

for i:=1 to length(s) do
for j:=1 to 100 do
 begin
  Delete(s,Pos('()',s),2);
  Delete(s,Pos('[]',s),2);
end;

while pos('[]',s) + pos('()',s)  > 0
 begin
  Delete(s,Pos('()',s),2);
  Delete(s,Pos('[]',s),2);
 end;

procedure DeleteBracket(var s:string);
begin
if pos('[]',s) + pos('()',s)  > 0 then
 begin
   Delete(s,Pos('()',s),2);
   Delete(s,Pos('[]',s),2);
   DeleteBracket(s);
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var s: string;
    i,j,k: integer;
begin
 s := Edit1.text;
 
 if s='' then
 showmessage('Ââåäèòå ïðåäëîæåГ*ГЁГҐ');
 {else
 k:= 0;
 for i:= length(s) downto 1 do
 begin
  if (s[i] = '(') and
     (s[i] = ')') and
     (s[i] = ']') and
     (s[i] = '[') then
  inc(k);
 end;} //как я и писал, в чем смысл-то этого цикла?
 if length(s) > 0 then //проверку на длину все же стоит проводить, у вас в случае пустой строки нет exit из процедуры
 for i:=length(s) downto 1 do
   if not (s[i] in ['(',')','[',']']) then 
    delete(s,i,1);
 
 
 edit2.text:=s;
 
 DeleteBracket(s);
 
 edit3.Text:=s;
 
 if edit2.Text='' then
  exit
 else
 if edit3.Text='' then
  showmessage('ÂåðГ*Г®')
 else
  showmessage('ГЌГҐГўГҐГ°Г*Г®');
end;
end.

{$APPTYPE CONSOLE}
 
function check(s: PAnsiChar; lastbracket: AnsiChar=#0): boolean;
begin
  result:=true;
  repeat
    if s^ in ['(','['] then
      result:=check(s+1,s^)
    else if s^=')' then
    begin
      result:=lastbracket='(';
      exit;
    end
    else if s^=']' then
    begin
      result:=lastbracket='[';
      exit;
    end;
    inc(s);
  until (s^<>#0)or(not result);
end;
 
begin
  writeln(check('([])'));
  readln;
end.