массивы.

[Засоня]

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
const
  Nmax=10;
Type
Mas1 = array[1..Nmax,1..Nmax] of extended;
Mas2 = array[1..Nmax] of extended;
var
Form1: TForm1;
A: Mas1;
B: Mas2;
N,M,i,j:integer;
t:boolean;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
N:=StrToInt(Edit1.Text);
M:=StrToInt(Edit2.Text);
   StringGrid1.RowCount:=N+1;
   StringGrid1.ColCount:=M+1;
   StringGrid2.RowCount:=N+1;
   StringGrid2.RowCount:=N+1;
for i:=1 to N do StringGrid1.Cells[0,i]:=' i= '+IntToStr(i);
for i:=1 to M do StringGrid1.Cells[i,0]:=' j= '+IntToStr(i);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
N:=3;
M:=3;
      Edit1.Text:=FloatToStr(N);
      Edit2.Text:=FloatToStr(M);
   StringGrid1.RowCount:=N+1;
   StringGrid1.ColCount:=M+1;
   StringGrid2.RowCount:=N+1;
   StringGrid2.RowCount:=N+1;
StringGrid1.Cells[0,0]:='Массив A:';
StringGrid2.Cells[0,0]:='Массив B:';
for i:=1 to N do begin
    StringGrid1.Cells[0,i]:=' i= '+IntToStr(i);
    StringGrid1.Cells[i,0]:=' j= '+IntToStr(i);
    end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
try
    for i:=1 to N do
    for j:=1 to M do
    A[i,j]:=StrToFloat(StringGrid1.Cells[j,i]);
except
on ERangeError do
                  begin
                        ShowMessage('Выход за пределы массива. Уменьшите размер массива');
                        Exit;
                  end;
on EConvertError do
                  begin
                  ShowMessage('В ячейке отсутствует значение, либо число введено не правильно');
                  Exit;
                  end;
else              begin
                  ShowMessage('Возникла неизвестная исключительная ситуация!');
                  Exit;
                  end;
end;
try
for i:=1 to n do
      for j:=1 to m do
     begin
    if A[i,j]=0  then
    B[i]:=0 else B[i]:=1;
    StringGrid2.Cells[0,j]:=FloatToStrf(B[i],fffixed,6,0);
    end;
except
on EInvalidOp do
                  begin
                  MessageDlg('Неправильная операция с плавающей точкой',mtError,[mbCancel],0);
                  Exit;
                  end;
on EOverFlow do
                  begin
                  MessageDlg('Переполнение при выполнении операции с плавающей точкой',mtError,[mbCancel],0);
                  Exit;
                  end;
else
      begin
      MessageDlg('Возникла неизвестная исключительная ситуация! ',mtError,[mbCancel],0);
      Exit;
      end;
end;
end;
end.

как сделать так, чтоб получить такой же результат, но в программе использовать двумерный динамический массив?

[Daramant]

Замени:

type
  Mas1 = array[1..Nmax,1..Nmax] of extended;
  Mas2 = array[1..Nmax] of extended;

на:

type
  Mas1 = array of array of extended;
  Mas2 = array of extended;

var
  A: Mas1;

Для определения длины массива есть функция: Length(A);
Для изменения длинны массива - функция SetLength(A, n);
где n = новый размер.
Для изменения длинны матрицы(array of array) - SetLength(A, n, m);
n = кол-во строк.
n = кол-во столбцов.