Дан массив из двадцати элементов

Var a: array [1… 20] of integer; i, m: integer; begin for i: =1 to 20 do begin a[i]: =random (50); writeln ('[', i, '] => ', a[i]); end; m: =1; for i: =1 to 20 do if (a[m] > a[i]) then m: =i; writeln ('[', m, '] => ', a[m]); end.