задан одномерный массив R(N) (N<=60) получить новый массив Q путем домножения элементов исходного массива R на его минимальный элемент.Вычислить его среднее арифметическое полученного массива А и записать его на место минимального элемента исходного массива R результат вывести на экран - Pascal(Паскаль)

program ggg;
uses Crt;
Var r,q:array [1..60] of real;
    min,s,sr,buf:real;
    i,j,n,k:integer;
begin
clrscr;
write (' Kolichestvo elementov = ');
readln (n);
for i:=1 to n do begin
                 write (' Vvedite ',i,' element ');
                 readln (r[i]);
                 end;
writeln (' Polycheny chisla ');
for i:=1 to n do write (r[i]:4:2,'  ');
writeln;
min:=r[1];
for i:=1 to n do
 if r[i]<=min then begin
                   min:=r[i];
                   j:=i;
                   end;
writeln ('Minim element = ',min:4:2);
writeln;
for i:=1 to n do
  q[i]:=r[i]*min;
write ('Massiv q -> ');
for i:=1 to n do write (q[i]:4:2,'  ');
writeln;
s:=0;
k:=0;
for i:=1 to n do begin
                 s:=s+q[i];
                 k:=k+1;
                 sr:=s/k;
                 end;
writeln ('Sr.AriFm massiva Q = ',sr:4:2);
writeln;
buf:=r[j];
r[j]:=sr;
write ('Massiv R -> ');
for i:=1 to n do write (r[i]:4:2,'  ');
readln
end.