Пожалуйста помогите, найдите ошибку, не могу вывести В MEMO 2

procedure TForm1.Button1Click(Sender: TObject);
var
max,min,i,n,j,l,z:integer;
a,b:array[0..30] of integer;
begin
n:=strtoint(Edit1.Text);
j:=0;
for i:=1 to n do
a[i]:=strtoint(Memo1.Lines[i-1]);
max:=a[0]; z:=0;
min:=a[0]; l:=0;
for i:=0 to n do
begin
if (a[i]>max) then
begin
max:=a[i];
z:=i;
end;
end;
for i:=0 to n do
if (a[i])<min then
begin
min:=a[i];
l:=i;
end;
if (z>l) then
begin
for i:=z to l do
begin
j:=j+1;
b[j]:=a[i];
Memo2.Lines.Add(inttostr (b[j]));
end;
end
else
if (z<l) then
begin
for i:=(z+1) to l-1 do
begin
j:=j+1;
b[j]:=a[i];
Memo2.Lines.Add(inttostr(b[j]));
end;
end;
Memo2.Enabled:=False;
Edit1.Enabled:=False;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
close
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
Memo1.Lines.Clear;
Memo2.Lines.Clear;
Edit1.Clear;
end;
 
end.

unit zad2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
max,min,i,n,j,l,z:integer;
a,b:array[0..30] of integer;
begin
n:=strtoint(Edit1.Text);
j:=0;
for i:=1 to n do
a[i]:=strtoint(Memo1.Lines[i-1]);
max:=a[0]; z:=0;
min:=a[0]; l:=0;
for i:=0 to n do
begin
if (a[i]>max) then
begin
max:=a[i];
z:=i;
end;
if (a[i])<min then
begin
min:=a[i];
l:=i;
end;
end;
 
if (z>l) then
begin
for i:=z to l do
begin
j:=j+1;
b[j]:=a[i];
Memo2.Lines.Add(inttostr (b[j]));
end;
end
else
if (z<l) then
begin
for i:=(z+1) to l-1 do
begin
j:=j+1;
b[j]:=a[i];
Memo2.Lines.Add(inttostr (b[j]));
end;
end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
close
end;
 
end.

...............
...............
if (z<l) then
 for i:=z to l do
   begin
    inc(j);
    b[j]:=a[i];
    Memo2.Lines.Add(inttostr (b[j]));
    end
else
 for i:=l to z do
  begin
    inc(j);
    b[j]:=a[i];
    Memo2.Lines.Add(inttostr (b[j]));
  end;