[bormotan]

а влом было сделать два двумерных массива ???? 3 на 3 каждый

когда я загонялся на паскале с матрицами , я был менее жестокий к своему мозгу . все делал через матрицы . ща поищу старые исходники

program pr1;
var i,j:integer;
      f:integer;{типа идентификатора формы}
     a:array[1..3,1..3] of integer;{}
     b:array[1..3] of integer;
     ok:command;
begin
showform;
ok:=createcommand('ввод',CM_OK,1);
addcommand(ok);
for i:=1 to 3 do
for j:=1 to 3 do 
begin
f:=formaddtextfield('Ввести элемент матрицы','',20,TF_NUMERIC);  //20 - макс количество цифр в каждом элементе
a[i,j]:=stringtointeger(formgettext(f));
repeat
delay(100);
until getclickedcommand=ok;
end;{ввод массива в мидлетпаскале}
delay(2000);
end.

удобством код не отличается , но работает . я проверил. и напиши поподробнее . дальше влом писать , ща скину свои исходники определителя матрицы

вот намного более простые исходники на паскале