Ввод данных

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
     const n=3;  m=3; //константы, так удобнее задать кол-во столбцов и строк 
 
  r=10;// генерация случайных чисел 
type
arr=array[1..n, 1..m] of integer;// задаем тип массива 
 
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;// для массивов удобнее использовать SG: на панельке вкладка  Addiitional
 
 
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
    mas1: arr;  // создаем массив
 
  i,j, : integer;// переменная -счетчик для цикла
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Randomize;
 
For i:=1 to n Do
  For j:=1 to m Do
          Begin
          mas1[i,j]:=Random(r);    
 
          StringGrid1.Cells[j,i]:=IntToStr(mas1[i,j]);       
 
          End;
 
END.

var
  i, j, sum: integer;
  a: array [0..9] of integer;// задается одномерный массив
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  j:=0; sum:=0;
  for i := 0 to StringGrid1.ColCount-1 do// это цикл для  всего массива 
    begin
      a[i]:=StrToInt(StringGrid1.Cells[i,0]);// этой строкой осуществляется ввод в ручную