Помогите, пожалуйста!! Язык программирования Паскаль.
1) Найти количество отрицательных элементов в массиве А [3,8].
2) Заполнит и вывести массив Р [6,7], запросить номер строки и вывести её на экран.
3) Заполнить и вывести массив Р [6,7], запросить номер строки, заменить все её элементы на 5 и вывести новый массив.
4) В квадратной матрице А [10,10] заменить элементы главной диагонали на 0.

Всё нужно очень срочно

1var  i, j, n: integer;  a: array[1..3, 1..8]of integer;beginfor i := 1 to 3 do  begin      for j := 1 to 8 do    begin    a[i, j] := random(-9, 9);    write(a[i, j]:3);    if a[i, j] < 0 then n := n + 1;    end;  writeln;  end;  writeln('Количество отрицательных: ', n);    end.2var  i, j, n: integer;  p: array[1..6, 1..7]of integer;begin  for i := 1 to 6 do  begin  for j := 1 to 7 do    begin    p[i, j] := random(-9, 9);    write(p[i, j]:3);    end;  writeln;  end;  write('Какую строку вывести: ');  readln(n);  for j:=1 to 7 do  write(p[n,j]:3);end.3var  i, j, n: integer;  p: array[1..6, 1..7]of integer;begin  for i := 1 to 6 do  begin      for j := 1 to 7 do    begin    p[i, j] := random(-9, 9);    write(p[i, j]:3);    end;  writeln;  end;  write('Какую строку изменить: ');  readln(n);  for j:=1 to 7 do p[n,j]:=5;  for i := 1 to 6 do  begin      for j := 1 to 7 do write(p[i, j]:3);  writeln;  end;end.4var  i, j, n: integer;  a: array[1..10, 1..10]of integer;begin  for i := 1 to 10 do  begin  for j := 1 to 10 do    begin    a[i, j] := random(-9, 9);    write(a[i, j]:3);    end;  writeln;  end;  for j:=1 to 10 do a[j,j]:=0;  writeln('Измененный массив: ');  for i := 1 to 10 do  begin  for j := 1 to 10 do write(a[i, j]:3);  writeln;  end;end.