FUNCTION LGleich(a, b : LONGINT) : BOOLEAN;
VAR i : INTEGER;

BEGIN
  i := LONGINT_len; LGleich := TRUE;
  WHILE (a[i] = b[i]) AND (i > 1) DO
    i := Pred(i);
  IF (a[i] < b[i]) OR (a[i] > b[i]) THEN
    LGleich := FALSE
END;