Даны натуральное число n, действительные числа a1,…,an. Получить: max (|a1|,…,|an|); — Pascal(Паскаль)

const
  n = 10;

var
  i, b, k, s, max: integer;
  a: array [1 .. n] of integer;

begin
  for i := 1 to n do
  begin
    a[i] := random(20);
    write(' ', a[i]:3);
  end;
  writeln();
  writeln('-------');

  max := 0;
  s := 0;
  For i := 1 to n do
    if a[i] > max then
      max := a[i];
  For i := 1 to n do
  begin
    s := max * (abs(a[i]));
    writeln('S=', s);
    s := 0;
  end;

  writeln('-------');

end.