1. Поищите материалы, касающиеся защиты авторского права.

2. Подумайте, на какие объекты Вы имеете авторское право. Как бы Вы могли им распорядиться?

3. Подумайте, почему так важно связывать между собой части реферата.

Type
    Mass = array [1..1000, 1..1000] of Integer;

var
    A: Mass;
    n, m, i, j: Integer;

begin
    Write('Количество строк массива: ');
    ReadLn(n);
    Write('Количество столбцов массива: ');
    ReadLn(m);
    for i := 1 To n Do
    begin
        for j := 1 To m Do
        begin
            Write('Введите элементы массива A[', i, ',', j, ']=');
            ReadLn(A[i, j]);
        end;
    end;
    
    WriteLn('Итоговый массив:');
    for i := 1 to n do
    begin
        for j := 1 to m do
        begin
            A[1, j] := 111;
            A[i, 2] := 222;
            Write(' A[', i, ',', j, ']=', A[i, j], ';')
        end;
        WriteLn;
    end;
end.

Задание можно озвучить так:
Создать массив целых чисел, заполнить его вручную. Заменить все элементы первого рядка на 111 и все элементы второго столбца на 222. Вывести итоговый массив.

//Не самое изящное решение
//Pascal ABC.NET 3.1

Const
 n=5;

 Var ar:array[1..2*n] of integer;
 j,a,k,i,t:integer;
begin
 write('A:');
readln(a);
 writeln('Array:');
 for i:=1 to n do
 readln(ar[i]);
 j:=1;
 k:=n;
 while j<>k do
  begin
   if ((ar[j]>=0) and (ar[j+1]>=0)) or ((ar[j]<=0) and (ar[j+1]<=0)) then
   begin
    t:=ar[k];
    for i:=k-1 downto j do
     ar[i+1]:=ar[i];
    ar[j+1]:=a;
    inc(k);
    j:=j+2;
    ar[k]:=t;
   end
   else
 inc(j);
  end;
 writeln('Final array:');
 for i:=1 to k do write(ar[i]:4);
end.

Пример ввода 1:
6
1
2
3
4
5
Пример вывода 1:
1 6 2 6 3 6 4 6 5

Пример ввода 2:
6
-1
2
-3
4
-5
Пример вывода 2:
-1 2 -3 4 -5

Пример ввода 3:
6
1
2
-3
4
5
Пример вывода 3:
1 6 2 -3 4 6 5