Преобразовать массив вещественных чисел.

procedure YOHOHO(var x: Real);
begin
    if (x < 0)
    then
        x := x / 10
    else
        if (x > 10)
        then
            x := x * 100
        else
            x := x * 10;
end;
 
var
    eps, temp: Real;
    vector: Array[Byte] Of Real;
    i, count: Byte;
    len: Integer;
begin
    repeat
        Write('Введите длину вектора (1..256): ');
        ReadLn(len);
    until ((len > 0) And (len < 257));
    Write('Введите точность вычислений (пр. 0.0001): ');
    ReadLn(eps); eps := Abs(eps);
    count := 0; temp := eps;
    repeat
        temp := temp * 10;
        Inc(count);
    until (temp >= 1);
    Write('Исходный вектор:');
    for i := 0 to len - 1 do
    begin
        vector[i] := Random * 198 - 99;
        Write(vector[i]:(5 + count):count);
        YOHOHO(vector[i]);
    end;
    WriteLn; Write('Выходной вектор:');
    for i := 0 to len - 1 do
        Write(vector[i]:(7 + count):count);
    WriteLn;
end.