[lmikle]

Вообще-то, это не пара, а 6 задач.
Код для "консольки". Если надо полное решение - то в раздел "Работа".

1 & 2.

Код:

const
  N = 10;

var
  A : Array [1..N,1..N] Of Integer;

// С клавиатуры
procedure GetArray;
var
  I, J : Integer;
begin
  WriteLn(Format('Введите значения для массива %dх%d:',[N,N]));
  For I := 1 To N Do
    For J := 1 To N Do
      Begin
         Write(Format('Значение ячейки A[%d,%d]=',[I,J]);
         ReadLn(A[I,J]);
      End;
end;

// Случайными числами
procedure GetArrayRandom;
var
  I, J : Integer;
begin
  WriteLn(Format('Ввод значений для массива %dх%d случайным образом',[N,N]));
  For I := 1 To N Do
    For J := 1 To N Do
       A[1,J] := Random(1000); // 0-999
end;

procedure PrintArray;
var
  I, J : Integer;
begin
  WriteLn(Format('Массив %dx%d:',[N,N]));
  For I := 1 To N Do
    Begin
      For J := 1 To N Do
        Write(A[I,J] + ' | ');
      WriteLn;
    End;
end;

begin
  // С клавы
  GetArray;
  PrintArray;

  // А теперь случайно
  GetArrayRandom;
  PrintArray;
end;

3 & 4:

Код:

const
  N = 10;

var
  A : Array [1..N] Of Integer;

// = номеру ячейки
procedure GetArray;
var
  I : Integer;
begin
  For I := 1 To N Do A[i] := I;
end;

// = квадрату номера ячейки
procedure GetArraySQR;
var
  I : Integer;
begin
  For I := 1 To N Do A[i] := Sqr(I);
end;

procedure PrintArray;
var
  I : Integer;
begin
  WriteLn('Массив:');
  For I := 1 To N Do
    Write(A[i]+' | ');
end;

begin
  // = номеру
  GetArray;
  PrintArray;

  // = кв. номера
  GetArraySQR;
  PrintArray;
end;

5 и 6 просто лень.
Да и не понятно - что такое "В режиме диалога в ячейки первого массива занести произвольные числа". произвольные или в режиме диалога...