Создать массив у, элементы которого вычисляют по формуле уk = ln(k) - 3, где k = 1, 2, ..., 10. Построить массив g, состоящий из отрицательных элементов массива у. Найти в массиве отрицательные элементы и заменить их значение на модуль числа. Определить их количество

Var
  y:array[1..10]of real;
  g:array of real;
  i,j,n:integer;
begin
for i:=1 to 10 do
  begin
  y[i]:=ln((random(500)+1)/10)-3;
  if y[i]  write(y[i], );
  end;
writeln;
writeln(Количество отрицательных: ,n);
writeln(Измененный массив: );
setlength(g,n);
for i:=1 to 10 do
  begin
  if y[i]    begin
    g[j]:=y[i];
    y[i]:=-y[i];
    j:=j+1
    end;
  write(y[i], )
  end;
writeln;
writeln(Массив g:);
for i:=0 to n-1 do write(g[i], )
end.