Написать программу на паскаль для нахождения минимального элемента таблицы и…

var a: array[1… 10,1… 10]of integer; i,j,min,i1,j1: integer; beginmin: =9999999; for i: =1 to 10 do for j: =1 to 10 do readln (a[i,j]); for i: =1 to 10 do for j: =1 to 10 do if a[i,j]