[F@got555]

procedure TForm1.Button1Click(Sender: TObject);
var a:array of array of integer;
    b:array of array of integer;
    p:array of integer;
    q:array of integer;
    m,n,i,j,h,min,y,z,k,x:integer;
begin
N:=StrToInt(Edit1.text);
M:=StrToInt(edit2.text);
StringGrid1.colcount:=n;
StringGrid1.rowcount:=m;
StringGrid2.colcount:=n;
StringGrid2.rowcount:=m;
SetLength(a,n,m);
SetLength(b,n,m);
SetLength(p,n);
SetLength(q,n);
for I := 0 to N-1 do
for j := 0 to M-1 do  A[i,j]:=random(40);

for I := 0 to N-1 do
for j := 0 to M-1 do StringGrid1.Cells[j,i]:=IntToStr (a[i,j]);

for I := 0 to N-1 do begin k:=0;
for j := 0 to M-1 do if A[i,j]mod 2 = 1 then k:=k+1;
                         p[i]:=k; q[i]:=i;
                   end;
for h := 1 to N - 1 do begin min:=q[h];
                             x:=h+1;
for i := x to N do if min>p[i] then begin y:=min; min:=p[i]; p[i]:=y;
                                          z:=q[h]; q[h]:=q[i]; q[i]:=z;
                                    end;
                        end;
for h := 0 to n-1 do
for i := 0 to n-1 do
for j := 0 to m-1 do
B[i,j]:=a[q[h],j];
for i := 0 to n-1 do
for j := 0 to m-1 do
stringgrid2.cells[j,i]:=IntToStr(B[i,j]);
end;

end.

вот так код не выдает ошибок! но считает не то что надо! он у меня выводит первой строкой последнюю строку введенного массива, а во все остальные строки копирует ее!