Вставить число X после последнего положительного элемента массива B из n элементов - Free Pascal

var
    ar: Array Of Single;
    x: Single;
    i, n: Byte;
    found: Boolean;
begin
    repeat
        Write('Input array length: ');
        ReadLn(n);
    until (n in [1..20]);
    SetLength(ar, n + 1);
    Randomize();
    Write('Original array:');
    for i := 0 to n - 1 do
    begin
        ar[i] := Random * 50 - 25;
        Write(' ', ar[i]:0:3);
    end;
    WriteLn;
    Write('Input x: '); ReadLn(x);
    i := n - 1;
    repeat
        found := (ar[i] > 0);
        if (found)
        then
            ar[i + 1] := x
        else
        begin
            ar[i + 1] := ar[i];
            Dec(i);
        end;
    until ((i = 0) Or (found));
    if (Not found)
    then
        Write('No one positive!')
    else
    begin
        Write('Modified array:');
        for i := 0 to n do
            Write(' ', ar[i]:0:3);
    end;
end.