Пиксели рисунка закодированы числами в виде матрицы. Выполнить отражение рисунка сверху вниз

uses
  graphABC;
const
  n=100;
  m=115;
var
  a:array[1..n,1..m] of integer;
  x,i,j:integer;
begin
  randomize;
  setbrushcolor(clAqua);
  rectangle(0,0,windowwidth,windowheight);
  for i:=1 to n do
    for j:=1 to m do
      begin
          a[i,j]:=(i*j)*n;
      end;
  for i:=1 to n do
    for j:=1 to m do
      setpixel(j+150,i+150,a[i,j]);
  for i:=1 to n div 2 do
    for j:=1 to m do
      begin
        x:=a[i,j];
        a[i,j]:=a[n-i+1,m-j+1];
        a[n-i+1,m-j+1]:=x;
      end;
  {если матрица нечетная, переставим элементы  средней строки}
  if odd(n) then
    for i:=1 to n div 2 do
      begin
        x:=a[n div 2+1,i];
        a[n div 2+1,i]:=a[n div 2+1,n-i+1];
        a[n div 2+1,n-i+1]:=x;
      end;
  for i:=1 to n do
    for j:=1 to m do
      setpixel(j+350,i+150,a[i,j]);
end.