Составить программу распечатки значений функции не больше 7.1 h=tg(33v/2tg(1.2v+2)) на отрезке [1.67,j] с шагом r — Pascal(Паскаль)

program fdy;

label 1;

function tg(x: real): real;
begin
  tg := sin(x) / cos(x);
end;

function h(v: real): real; { вычисляет tg(33v/2tg(1.2v+2)) }
var
  t1: real;
begin
  t1 := (1.2 * v) + 2;
  t1 := 2 * tg(t1);
  t1 := (33 * v) / t1;

  h := tg(t1);
end;

var
  v, j, r: real;
  m: integer;

begin
1:
  write('J: ');
  readln(j);
  if j > 7.1 then
  begin
    writeln('Ne mojet byti bolishe 7.1');
    goto 1;
  end;
  write('r: ');
  readln(r);
  v := 1.67;
  writeln('v:':6, ' ', 'h(v):':12);
  writeln('-------------------');
  repeat
    writeln(v: 8: 2, ' ', h(v): 9: 2);

    v := v + r;
  until v > j;

  readln();

end.