[cotseec]

кидаешь на форму edit, пишешь

Код:

var
  Form1: TForm1;
  s:integer;

implementation

{$R *.dfm}
//const s=7;
type matrix = array [1..s,1..s] of real;
...
procedure TForm1.Button1Click(Sender: TObject);
var 
   a,d_: matrix;
   d1,d,x: array[1..s] of real;
   dx: array [1..s] of matrix;
   k,i,j: integer; det_: real;
begin
   Memo1.Clear;
   s:=StrToInt(Edit1.text);
   for i:=1 to s do 
      for j:=1 to s do...

ошибки преобразования обрабатываешь сам (или вводишь в Edit1 только числа), соотвественно все массивы, в которых указано s, делаешь динамическими и не забываешь их инициализировать и финализировать, еще лучше (и познавательнее) тут и тут, а если совсем лень, то тут