Получить 2 массив путем умножения элементов первого массива к частному максимального и среднего арифметического числа

program itoban;
    uses crt;
    var a:array [1..10] of integer;
       max,i,k:integer;
        s:real;
    begin clrscr;
    randomize;
    for i:=1 to 10 do begin
             a[i]:=random(100);
             writeln ('a(',i,')=', a[i],'')
             end;
        max:=a[1];
        for i:=1 to 10 do begin
            if a[i]>max then max:=a[i];
            end;
    writeln('максимальное значение = ',max);
    writeln ('');
    s:=(max)/2;
    writeln ('среднее арифметическое =',s:5:2);
            for i:=1 to 10 do begin
            if a[i]>s then k:=k+1;
    readln;
    end;
    end.

uses crt;
const n=10;
var a,b:array [1..n] of real;
    i:integer;
    max,s:real;
begin
randomize;
writeln('Исходный массив');
s:=0;
for i:=1 to n do
 begin
  a[i]:=10*random;
  write(a[i]:6:2);
  if i=1 then max:=a[i]
  else if a[i]>max then max:=a[i];
  s:=s+a[i];
 end;
writeln;
writeln('Максимум=',max:0:2);
s:=s/n;
writeln ('Среднее=',s:0:2);
writeln('Измененный массив');
for i:=1 to n do
 begin
  a[i]:=a[i]*max/s;
  write(a[i]:6:2);
 end;
end.