Зеркально отразить элементы относительно горизонтальной оси симметрии матрицы.

program pr1;
uses
 crt;
type
 PMyVector = ^MyVector;
 //строка динамической матрицы
 MyVector = Array[1..1] of Integer;
 
 PMyArray = ^MyArray;
 //сама матрица представляется как массив указателей
 MyArray = Array[1..1] of PMyVector;
 
var
 DynamicArr: PMyArray;
 count,i,element: Integer;
 pmin: ^Integer;
begin
Clrscr;
//вводим кол-во элементов последовательности
Write('Ukajite kol-vo elementov posledovatelnosti: ');
Readln(count);
//выделяем память сперва для строки массива, а затем и для эл-тов строки, а также и для переменной //мин
GetMem(DynamicArr, SizeOf(PMyVector));
GetMem(DynamicArr^[1], Count*SizeOf(integer));
New(pmin);
 
//вводим значения элементов последовательности
For i:=1 to count do
 begin
 writeln('vvedite ',i,'-i element posledovatelnosti');
 readln(element);
 DynamicArr^[1]^[i]:= element;
 end;
 
pmin^:=DynamicArr^[1]^[1];
 
//находим минимальное значение
For i:=1 to count do
 begin
 write(DynamicArr^[1]^[i]:3);
 if DynamicArr^[1]^[i]<pmin^ then pmin^:=DynamicArr^[1]^[i]
 end;
writeln;
write('min: ',pmin^);
 
//освобождаем выделенную память
Dispose(pmin);
FreeMem(DynamicArr^[1], Count*SizeOf(integer));
FreeMem(DynamicArr, SizeOf(PMyVector));
readkey;
 
end.

Var x, y : Byte;
      M : array [1..10,1..10] of Byte;
 
Begin
 
Randomize;
For x := 1 To 10 Do
  For y := 1 To 10 Do
    M[x,y]:= Random(5) + 1;
 
Writeln('Isxodnay matrica:');
For x := 10 downto 1 do
  Begin
    For y := 1 To 10 Do
      Write(M[x,y],' ');
    Writeln;
  End;
 
Writeln; Writeln; Writeln('Kone4nay matrica:');
For x := 1 To 10 Do
  Begin
    For y := 1 To 10 Do
      Write(M[x,y],' ');
    Writeln;
  End;
 
Readln;
 
end