Найти минимальный элемент массива и его индекса (в паскале)

program exs; var a: array [1… 30] of integer; i, min, indMin: integer; beginmin: =40; for i: =1 to 30 do a[i]: =random (30); for i: =1 to 30 do beginif a[i] < min then beginmin: =a[i]; indMin: =i; end; end; write (a[i], ', indMin); end.