Даны действительные числа a1...a6, b1..b6, c1..c6. в массивах a1...a6, b1..b6... заменить отрицательные нулями

const
    n = 5;
type
    TMass = Array[0..n] Of Single; //объявляем свой тип: массив из 6 вещественных чисел
 
procedure InitMass(var m : TMass); //процедура заполнения массива
var
    i : Byte;
begin
    for i := 0 to n do
    begin
        m[i] := (Random(256) - 128) / (n + i); //рандомим значение массива
        Write(m[i]:7:2);
    end;
    WriteLn;
end;
 
procedure ReplaceP(var m : TMass); //процедура замены отрицательных на нули сразу на всём массиве
var
    i : Byte;
begin
    for i := 0 to n do //для каждого элемента массива
    begin
        if (m[i] < 0) then //проверяем знак
            m[i] := 0; //заменяем на нуль, если отрицательный
        Write(m[i]:7:2); //выводим
    end;
    WriteLn;
end;
 
function ReplaceF(x : Single) : Single; //функция проверки числа на знак, возвращающая собственно число (0 или его же самого)
begin
    if (x < 0) then
        ReplaceF := 0
    else
        ReplaceF := x;
end;
 
function ReplaceF2(m : TMass) : TMass; //функция проверки всего массива, возвращающая массив с заменами на нуль. по сути аналогична ReplaceP
var
    i : Byte;
begin
    for i := 0 to n do
        if (m[i] < 0) then
            m[i] := 0;
    ReplaceF2 := m;
end;
 
var
    a, b, c : TMass;
    i : Byte;
 
begin
    Randomize;
    InitMass(a); InitMass(b); InitMass(c);
    ReplaceP(a);
    for i := 0 to n do
    begin
        b[i] := ReplaceF(b[i]);
        Write(b[i]:7:2);
    end;
    WriteLn;
    c := ReplaceF2(c);
    for i := 0 to n do
        Write(c[i]:7:2);
    WriteLn;
end.