Напечатать те числа из массива, которые образуют убывающие последовательности

var
  Form1: TForm1;
  i,j,N:integer;
  A:array of integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
  N:=strtoint(edit1.Text);
  randomize;
  setlength(A,N);
  edit2.Text:=' ';
  for i:=0 to N-1 do
  begin
    A[i]:=round(200*random-100);
    edit2.Text:=edit2.Text+' '+inttostr(a[i]);
  end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
edit3.Text:=' ';
for i:=0 to N-1 do
begin
        if a[i]>a[i+1]then
        edit3.Text:=edit3.Text+' '+inttostr(a[i])+' '+inttostr(a[i+1]);
end;
end;
end.
end;
end.

var
  Form1: TForm1;
  i,j,N,t:integer;
 A:array of integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
N:=strtoint(edit1.Text);
randomize;
setlength(A,N);
edit2.Text:='';
for i:=0 to N-1 do
begin
A[i]:=round(200*random-100);
edit2.Text:=edit2.Text+' '+inttostr(a[i]);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
edit3.Text:='';
t:=0;
while t < N do
 if a[t]>a[t+1]then begin
 edit3.Text:=edit3.Text+' '+inttostr(a[t])+' '+inttostr(a[t+1]);
 t:=t+2;
 end
 else
 begin
 t:=t+1;
 edit3.Text:=edit3.Text+' ';
 end;
begin
end
end;
 
end.
end;
end;
end;
 
end.