Здравствуйте, dkhrebtovich!
[code lang=pascal]var a:array[1..10,1..10] of integer;
n,m,i,j,min:integer;
begin
repeat
writeln('Введите размеры массива от 2 до 10'); //можете поменять интервал
readln(n,m);
until(n in [2..10])and(m in [2..10]);
writeln('Введите элементы массива целые числа от -10 до 10');//то же
for i:=1 to n do
for j:=1 to m do
begin
repeat
write('a[',i,',',j,']=');
readln(a[i,j]);
until(a[i,j]>=-10)and(a[i,j]<=10);
if i+j=2 then min:=a[i,j]
else if a[i,j]<min then min:=a[i,j];
end;
writeln('Введенный массив');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:4);
writeln;
end;
write('Минимальный элемент=',min);
end.[/code]