Ввести с клавиатуры массив и вывести этот массив в обратном порядке

var
    ar: Array[Byte, Byte] Of LongInt;
    i, j, n, m: Byte;
begin
    repeat
        Write('n=');
        ReadLn(n);
    until (n > 0);
    repeat
        Write('m=');
        ReadLn(m);
    until (m > 0);
    for i := 0 to n - 1 do
        for j := 0 to m - 1 do
        begin
            Write('ar[', i + 1, '][', j + 1, ']=');
            ReadLn(ar[i, j]);
        end;
    {WriteLn; WriteLn;
    for i := 0 to n - 1 do
    begin
        for j := 0 to m - 1 do
            Write(ar[i, j]:7);
        WriteLn;
    end;}
    WriteLn; WriteLn;
    for i := n - 1 downto 0 do
    begin
        for j := m - 1 downto 0 do
            Write(ar[i, j]:7);
        WriteLn;
    end;
end.

For i:=N downto 1 do
Begin
  For j:=M downto 1 do Write(Mas[i,j],' ');
  Writeln;
end;