Сформировать матрицу с помощью генератора случайных чисел и организовать её вывод на экран - Pascal

Формулировка задачи:

ребят,помогите 1. Составить программу для подсчёта среднего арифметического элементов, расположенных на главной и побочной диагоналях в квадратной целочисленной матрице X размером N×N. Сформировать матрицу с помощью генератора случайных чисел и организовать её вывод на экран. 2. Дана прямоугольная матрица В размером N×M. Составить программу, которая преобразует матрицу следующим образом: поэлементно вычитает первый столбец из всех столбцов, кроме первого.

Решение задачи: «Сформировать матрицу с помощью генератора случайных чисел и организовать её вывод на экран»

Листинг программы

uses
  crt;
const
  n=4;
var
  a:array [1..n,1..n] of integer;
  i,j,gsum,psum:integer;
begin
  clrscr;
  {Г§Г*ГЇГ®Г«Г*ГїГҐГ¬ ГЁ ГўГ»Г»ГўГ®Г¤ГЁГ¬ Г¬Г*Г±Г±ГЁГў}
  writeln('Г€Г±ГµГ®Г¤Г*Г*Гї Г¬Г*ГІГ°ГЁГ¶Г* X:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(8)-4;
      write(a[i,j]:2,' ')
    end;
    writeln
  end;
  {Г*Г*ГµГ®Г¤ГЁГ¬ Г¬Г*ГЄГ±ГЁГ¬ГіГ¬ ГўГ»ГёГҐ ГЈГ«Г*ГўГ*Г®Г© Г¤ГЁГ*ГЈГ®Г*Г*Г«ГЁ}
  gsum:=0;
  psum:=0;
  for i:=1 to n do
  begin
    inc(gsum,a[i,i]);
    inc(psum,a[i,n-i+1])
  end;
  writeln('Г‘Г°ГҐГ¤Г*ГҐГҐ Г*Г°. ГЈГ«Г*ГўГ*Г®Г© Г¤ГЁГ*ГЈ. = ',gsum/n);
  writeln('Г‘Г°ГҐГ¤Г*ГҐГҐ Г*Г°. ГЇГ®ГЎГ®Г·Г*Г®Г© Г¤ГЁГ*ГЈ. = ',psum/n)
end.

Объяснение кода листинга программы

Создается матрица nxn, где n=4.
Генерируются случайные числа для заполнения матрицы.
Выводится первая строка матрицы.
Для каждой строки матрицы:
- Инициализируются переменные i,j,gsum,psum.
- Заполняется строка матрицы.
- Увеличивается сумма gsum на текущий элемент строки и сумма psum на (n-i+1) элемент строки.
Выводится среднее значение суммы элементов строки и (n-1) элементов подстроки.
Выводится конечный результат.