Натйти максимальный  по модулю элемент и его порядковый номер. составить программу в паскале 

var a: array [0..10] of integer;     i, m: integer; begin      for i := 0 to 10 do      begin           a[i] := random(50) - 25;           writeln('[', i, '] => ', a[i]);      end;           for i := 0 to 10 do          if (abs(a[i]) > abs(a[m])) then             m := i;      writeln('[', m, '] => ', a[m]); end.