Информатика составить программу в паскале

program SquareMatrix;

uses crt;

const
N = 5; // Размер матрицы (можно изменить)

var
matrix: array[1..N, 1..N] of integer;
i, j: integer;

begin
randomize; // Инициализация генератора случайных чисел

// Заполнение матрицы случайными числами от -100 до 100
for i := 1 to N do
for j := 1 to N do
matrix[i, j] := random(201) - 100; // Генерация случайного числа от -100 до 100

// Вывод исходной матрицы
writeln('Исходная матрица:');
for i := 1 to N do
begin
for j := 1 to N do
write(matrix[i, j]:4); // Вывод элементов матрицы
writeln; // Переход на новую строку
end;

// Замена элементов главной диагонали на единицы
for i := 1 to N do
matrix[i, i] := 1;

// Вывод изменённой матрицы
writeln('Матрица после замены элементов главной диагонали на единицы:');
for i := 1 to N do
begin
for j := 1 to N do
write(matrix[i, j]:4); // Вывод элементов матрицы
writeln; // Переход на новую строку
end;

readln; // Ожидание ввода для завершения программы
end.