Двумерный массив (10x10). найти и вывести номер минимального элемента.

Const     n = 10; var     a: array[1..n,1..n] of integer;     i,j,imin,jmin: integer; begin randomize; imin: =1; jmin: =1; writeln('исходный массив: '); for i: = 1 to n do       begin       for j: = 1 to n do               begin               a[i,j]: =random(21)-10;               write(a[i,j]: 3,' ');               if a[i,j]< a[imin,jmin] then                     begin                     imin: =i;                     jmin: =j;                     end               end;       writeln       end; writeln; writeln('min(a) = a[',imin,',',jmin,'] = ',a[imin,jmin]) end. пример: исходный массив:   4  -8  -4  10    8  10  -1  -7  -5  -1   -3  -8    0    4    7  -1    2    1    3    9   8  -3    8    7  -5    6 -10  -5    6    6   7  -8    4    4  -6    0    6  -6  -7  -8   -5  -7    0  -8  -4    4  -7    0    1  -3   -3  -1    9    9  -4  -4  -5    0    4  -9   9  -7  -3    0    3  -5  -1    6  -1  -3   4  -3  -2    1    4    5    8    6    1    2   3    0    5  -1  -2  -3  -7    5  -3    8   -6  -4    0  -9  -7  -9    6  10  -1 -10 min(a) = a[3,7] = -10

Ответ: 338 я проверил