关于PASCAL的问题

Question

PROGRAM T1;
Var
   N:Byte;
   CycI,CycJ:Integer;
Begin
     WriteLn;
     ReadLn(N);
     For CycI:=1 To N Do
     Begin
          If CycI<>1 THen Write('*');
          For CycJ:=1 To CycI-2 Do
              Write('+');
          WriteLn('*');
     End;
End.    第二题麻烦之处主要就是判断正误，否则直接检测输入的字符串，如果为PM则小时加12否则去掉后直接输入即可。我就不写了。