Обработка двумерных массивов (матриц) - Pascal ABC

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

Ребят! Помогите пожалуйста! Задали в вузе ,нужно сделать обязательно для зачета. Заранее огромнейшее спасибо!=) 1)Разработать программу, в которой предусмотреть: - ввод размерности NxM двумерного массива А, - задание элементов массива двумя способами: ввод с клавиатуры и формирование значений с помощью функции RANDOM(K) генерирования случайных чисел в диапазоне [0..К-1]. 2)Построить новую матрицу, которая образуется из исходной добавлением к ней столбца средних значений по строкам.

Решение задачи: «Обработка двумерных массивов (матриц)»

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

const
m = 10;
n = 5;
var a:array[1..n,1..m+1] of real;
i, j, K: integer;
sum:real;
begin
//ввод с клавиатуры
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        read(a[i,j]);
        end;
    writeln;
    end;
writeln('Введите диапазон изменения значений элементов массива');    
readln(K);
writeln('Исходный массив:');
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        a[i,j]:=random(K);
        write(a[i,j]:5:2);
        end;
    writeln;
    end;
for i:=1 to n do
    begin
    sum:=0;
    for j:=1 to m do
        sum:=sum + a[i,j];
    a[i,m+1]:=sum/m;
    end;
writeln('Итоговый массив');
for i:=1 to n do
    begin
    for j:=1 to m+1 do
        write(a[i,j]:5:2);
    writeln;
    end;
end.

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

Объявляются переменные m, n, a, i, j, K, sum.
Вводится диапазон изменения значений элементов массива.
Вводится исходный массив.
Генерируются случайные числа для каждого элемента массива в диапазоне от 0 до K.
Вычисляется сумма элементов массива.
Вычисляется итоговый массив.
Выводится итоговый массив.