Найти наименьший отрицательный элемент выше побочной диагонали и наименьший положительный ниже (Pascal)

[Stilet]

а можно что бы самому цифры водить !?..пожалуста....!)

Замени

Arr[i, j] :=-10 + Random(20);

на

write('введите [',i,',',j,'] е числишко   ');Readln(Arr[i, j]);