Нужно подправить программу в Pascal на одномерные массивы.

Напишу полностью задачу:
program MyProg;
type MyArray = array[1..40] of real;

function SetArray():MyArray
var i:integer;
returnedArray:MyArray;
begin
for i:=1 to 40 do
returnedArray:=(0.5-random())*100;
SetArray = returnedArray;
end;

procedure PrintArray(anyArray : MyArray)
var i:integer;
begin
for i:=1 to 40 do
writeln("anyArray[",i,"]=", anyArray);
end;

function Work(curArray : MyArray)
var i,k:integer;
returnedArray:MyArray;
begin
k=1;
for i:=1 to 40 do begin
if(curArray<0) then begin
returnedArray[k]:=curArray;
k:=k+1;
end;
end;
Work := returnedArray;
end;
{===ВСЁ===}
Только в данном случае грамотнее и рациональнее возвращать из функции Work не массив фиксированный длинны, а динамический список (если, конечно, Вам объясняли что это такое)

Что, настолько все запущено, что содранную программу не можем заставить работать?

1. В процедуре ввода замените запятую на точку.

2. Ваша процедура work не возвращает число элементов в результирующем массиве. Надо добавить служебное слово var перед формальным параметром k.

3. В самой процедуре изначально k лучше инициализировать нулем, а при отрицательном элементе исходного массива сначала инкрементировать значение индекса, а затем присваивать значение элементу. При таком подходе отпадает надобность в строчке k:=k-1;

4. Процедуру vivod можно изменить.

procedure vivod(Title: String; n: integer; a: massiv);
var i: integer;
begin
WriteLn(Title);
for i:=1 to n do write(a[ i ]:10:1);
writeln;
end;

Тогда основная программа будет выглядеть так

vvod(n,a);
vivod('Исходный массив: ', n, a);
work(a,n,new_mas,k);
vivod('Новый массив: ', k, new_mas);

5. У вас нет обращения к процедуре инициализации генератора случайных чисел. Как результат - при каждом запуске генерируется одинаковая последовательность.

6. И последнее. Перед последним end. добавьте ReadLn;, чтобы программа не завершилась и можно было бы увидеть результат (ужасно не люблю всякие там Alt+F5).