Найти u — первый отрицательный член последовательности cos(ctg n), n =1,2,3… — Pascal(Паскаль)

uses crt;
var n:integer;
    u:real;
begin
clrscr;
n:=1;
u:=cos(n)/sin(n);
if u<0 then write('n=1  u=',u:0:2)
else
 begin
  while u>=0 do
   begin
    n:=n+1;
    u:=cos(n)/sin(n);
   end;
  write('n=',n,'  u=',u:0:3);
 end;
readln
end.