Лабораторная работа № 14. Двумерные массивы. Вариант 12 Pascal

Задание 1.Дано условие задачи и программа, ее решающая. Предложить набор тестов для проверки работоспособности программы
Вариант12. Вводится двумерный массив А. С помощью датчика случайных чисел задается двумерный массив В. Если элемент массива B больше 10, то его необходимо удвоить, а если меньше либо равен 10, то обнулить. Результирующий массив B вывести построчно.
                    
Programma s2;
type
LinMass = array [1..1000,1..1000] of Integer;
var
A,B: LinMass;
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('итоговый массив:':25);
for i:=1 to n do begin
for j:=1 to m do begin
B[i,j]:=random(30);
If B[i,j]>10 then B[i,j]:=B[i,j]*2 else B[i,j]:=0;
Write(' B[',i,',',j,']=',B[i,j],';');
end;
writeln('   ');
end;
end.

Задание 2. Дана программа, содержащая пропуски и синтаксические ошибки. Сформулировать условие задачи, исправить  ошибки , представить правильный вариант программы и проверить его тестами.
Вариант12.
Programmas2;
type
LinMass = array [1..1000,1..1000] of Integer;
var
A: LinMass;
n,m, i, j: Integer;
begin
Write('Количество строк массива: ');ReadLn(n);
Write('Количество столбцов массива: ');ReadLn(m);
forI := 1 To nDo
forj := 1 To m Do
begin
Write('Введите элементы массива A[',i,',',j,']=');
ReadLn(A[i,j]);
end;
end;
writeln('итоговыймассив:':25);
fori:=1 to ndo begin
forj:=1 to mdo begin
A[i,j]:=1;
Write(' A[',i,',',j,']=',A[i,j],';');
end;
writeln('   ');
end;

Задание 3. Решить задачу, составить программу и выполнить.
Вариант 12. . С помощью датчика случайных чисел заданы два двумерных массива размером 3 строки и 3 столбца . Создать третий массив такого же размера, каждый элемент которого вычисляется как сумма соответствующих элементом первых двух, если оба элемента  больше 10 и как произведение в противном случае. Все массивы вывести.

Задание 4. Решить задачу, составить программу и выполнить.
Вариант 12. Задать один двумерный массив, у которых число строк не равно числу столбцов. Вычислить сумму элементов массива. Получить второй массив, каждый элемент которого является   процентом соответствующего элемента первого массива от общей суммы элементов. Все массивы вывести.