Найти числа, равные разностям наибольших и наименьших значений элементов строк

var
  i,j,max,min,k,temp: Integer;
  a:array of array of integer;
  b: array of integer;
begin
a:=nil; b:=nil;
SetLength(a, 1024,1024);
SetLength(b, 1024);
memo1.Text:=''; memo2.Text:='';
for I := 0 to 4 do
  begin
  for j := 0 to 9 do
    begin
       a[i,j]:=random(100);
       memo1.text:=memo1.text+inttostr(a[i,j])+'  ';
    end;
    memo1.text:=memo1.text+#13#10;
  end;
k:=-1;
for I := 0 to 4 do
  begin
    min:=a[i,0]; max:=a[i,0];
    for j := 1 to 9 do
       begin
         if min>a[i,j] then min:=a[i,j];
         if max<a[i,j] then max:=a[i,j];
       end;
    temp:=max-min; j:=0;
    while (j<=9)  do
      begin
        if  temp=a[i,j] then
          begin
            k:=k+1; b[k]:=temp; j:=10;
          end;
        j:=j+1;
      end;
  end;
if k=-1 then showmessage('таких элементов нет')
else
 for j := 0 to k do
       memo2.text:=memo2.text+inttostr(b[j])+'  ';
 
a:=nil; b:=nil;
end;