Пожалуйста посчитайте,пожалуйста, решить задачу в паскале."заполнить двумерный массив 5*5 при помощи счетчика случайных чисел и найти сумму элементов массива.Полученный результат вывести на экран"

const
  n = 5;

var
  a: array[1..n, 1..n] of integer;
  i, j, sum: integer;

begin
  Randomize;
  Writeln('Исходный массив');
  sum := 0;
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := Random(100) + 1;
      Write(a[i, j]:4);
      sum := sum + a[i, j]
    end;
    Writeln
  end;
  Writeln('Сумма элементов равна ', sum)
end.


Исходный массив
  78  95  84  80  19
   9  98  18  71  52
  33  42  27  79  17
  91  54  85  50  52
  62  98  53  86  59
Сумма элементов равна 1492