PROCEDURE FINDMAX (VAR MAX:integer;M:array[1..100] of integer;N:integer);
    VAR I:INTEGER ;
    BEGIN
      MAX:=M[ 1 ] ;
      I:=2 ;
      WHILE I<=N DO
      BEGIN
        IF MAX<M[I] THEN MAX:=M[I] ;
        I:=I+1
      END
    END ;