Solução em Pascal do Problema 22

program SegmentoCrescente;
var
  n,       {numero de elementos da sequencia}
  Seq,     {sequencia de numeros inteiros}
  SeqAnt,  {numero anterior da sequencia}
  Comp,    {comprimento de um segmento}
  CompMax, {comprimento do segmento maximo}
  Conta: integer;
begin
  write ('Entre com um numero: ');
  read (n);
  write ('Digite uma sequencia de ',n,' numeros inteiros: ');
  Comp := 1;
  SeqAnt := 0;
  CompMax := 0;
  for Conta:=1 to n do begin
                         read (Seq);
                         if Seq>SeqAnt then Comp := Comp+1
                                  else Comp := 1;
                         if CompMax < Comp then CompMax := Comp;
                         SeqAnt := Seq
                       end;
  writeln ('O comprimento do segmento crescente maximo: ',CompMax)
end.