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

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.