1-е - http://forums.sumy.ua/showthread.php?t=35391
2-е какая таблица n*m?, ..побічної діагоналі.. - диагоняль из однго угла в другой?
если да эт же легко
var a:array[1..n,1..m] of integer;
i,j,min,minrad:integer;
begin
min:=maxint;
for i:=1 to n do
for j:=m-i+1 to m do
if min>a[n,m]
then...