Дана целочисленная матрица 5 на 5. Определить положительные элементы на побочной диагонали.(Паскаль)

const     n = 5;   // Размер матрицы var    i, e, r: Integer;    m : array [1..n, 1..n] of Integer; begin      for i:= 1 to n do       for e:= 1 to n do       begin          //m[i, e] := Random(101) - 50;                // Заполнение случайными числами          Write('m[',i,',',e,'] = '); Readln(m[i, e]);    // Ручной ввод матрицы       end;    r := n;    for i := 1 to n do    begin       if m[i, r] >= 0 then          Write(m[i, r], ' ');         dec(r);    end;    Readln; end.