Отобразить элементы двумерного числового массива относительно горизонтальной оси.

Может всё-таки не отOБразить, а отразить массив относительно горизонтальной оси?

program N74812596;
uses crt;
const
n = 4;
m = 5;
type
matrix= array [1..n, 1..m] of integer;

procedure zap(var mass: matrix);
var i,j: integer;
begin
for i:=1 to n do
for j:=1 to m do
mass[i,j]:=random (100)-50
end;

procedure WriteArray(var a: matrix);
var i, j: byte;
begin
for i:=1 to n do
begin
for j:=1 to m do
write (a[i,j]:5);
writeln
end
end;

procedure Reflection(var a: matrix);
var
i, j: byte;
t: integer;
begin
for i := 1 to n div 2 do
for j := 1 to m do
begin
t := a[i, j];
a[i, j] := a[n - i + 1, j];
a[n - i + 1, j] := t
end
end;

var
mass: matrix;
i, j: byte;
begin
randomize;
zap(mass);
writeln('Сформированный массив: ');
WriteArray(mass);
Reflection(mass);
writeln(#13#10'Отражённый массив: ');
WriteArray(mass);
writeln(#13#10'Для завершения работы нажмите любую клавишу... ');
readkey
end.

Главная диагональ есть только в квадратной матрице. У вас же матрица прямоугольная и ни о какой главной диагонали не может быть речи. Или я что-то не знаю о главных диагоналях?

У квадратной матрицы элементы, расположенные под главной диагональю, выводятся так:
for i := 2 to n do
begin
for j := 1 to i - 1 do
write(mass[i, j]:5);
writeln
end;

Пиши на мыло