Помогите пожалуйста очень срочно!!!
Дана программа, содержащая пропуски и синтаксические ошибки. Сформулировать условие задачи, исправить ошибки , представить правильный вариант программы и проверить его тестами.
Programmas2;
type
LinMass = array [1..1000] of Integer;
var
B: LinMass;
n,m, i, j: Integer;begin
Write('Количество строк массива: ');ReadLn(n);
Write('Количество столбцов массива: ');ReadLn(m);
forI := 1 To nDo begin
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[1,j]:=111;
A[i,2]:=222;
Write(' A[',i,',',j,']=',B[i,j],';')
end;
writeln(' ');
end;
end.

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. Вывести итоговый массив.