Задан массив. Определить номер наибольшего элемента массива А и наибольшего значения среди модулей элементов массива А — Pascal(Паскаль)

program naib_i_naibpomodulu;

const
  SizeA = 10;

var
  a: array [1 .. SizeA] of integer;
  i, max, maxabs: integer;

procedure CreateMass;
begin
  Randomize();
  for i := 1 to SizeA do
  begin
    a[i] := Random(10) - Random(10);
    write(a[i], ' ');
  end;
end;

procedure FindMax;
begin
  max := 1;
  for i := 1 to SizeA do
  begin
    if a[max] < a[i] then
      max := i;
  end;
  writeln('');
  writeln('  Max zna4enie = ', a[max], ' = (#', max, ')');
end;

procedure FindMaxAbs;
begin
  maxabs := 1;
  for i := 1 to SizeA do
  begin
    if abs(a[maxabs]) < abs(a[i]) then
      maxabs := i;
  end;
  writeln('');
  writeln('|Max zna4enie| = ', abs(a[maxabs]), ' = (#', maxabs, ')');
end;

begin
  CreateMass;
  FindMax;
  FindMaxAbs;
  readln;

end.