Расчета импульсной функции заданной графиком - Pascal

function Y(const x: Double): Double;
var
    Result: Double;
begin
    if (x < -1)
    then
        Result := 0
    else
        if (x < 0)
        then
            Result := 2 * (x + 1)
        else
            if (x < 1)
            then
                Result := 2 - 3 * x
            else
                if (x < 4)
                then
                    Result := x - 2
                else
                    if (x < 5)
                    then
                        Result := 2 * (5 - x)
                    else
                        Result := 0;
    Y := Result;
end;
var
    x: Double;
    error: Word;
begin
    if (paramcount > 1)
    then
    begin
        WriteLn('Too mych parameters!');
        exit;
    end;
    if (paramcount = 0)
    then
    begin
        Write('x='); ReadLn(x);
    end
    else
    begin
        Val(paramstr(1), x, error);
        if (error <> 0)
        then
        begin
            WriteLn('Wrong parameter!');
            exit;
        end;
    end;
    WriteLn('y(', x:0:3, ')=', Y(x):0:3);
end.