по заданным с клавиатуры значениям a, b отыскать значение F f=a+5

Function z00005(x, a, b : real; No1 1, 2 : byte) : real;
    var
      f : real;
  begin
    if (No1 = 1) then
      begin
        if (b lt; 2) then
          begin
            f := a + 5;
          end
            else
              begin
                f := a;
              end;
      end
        else
          begin
            if (b lt; a) then
              begin
                f := x * x;
              end
                else
                  begin
                    f := 8 * a * b;
                  end;
          end;
    z00005 := f;
  end;