Vale The test on array of char seem not works for array of four char. Here there is a simple source, whit five test and where one is falling:
program Prx; var a5: array[1..5] of char := '01960'; b5: array[1..5] of char := '01959'; a4: array[1..4] of char := '1960'; b4: array[1..4] of char := '1959'; as: string(4) := '1960'; bs: string(4) := '1959'; begin writeln('Test array of char'); if a5 <= '01959' then writeln('failed! array 5 - costant'); if a5 <= b5 then writeln('failed! array 5'); if a4 <= '1959' then writeln('failed! array 4 - costant'); {above the falling test?} if a4 <= b4 then writeln('failed! array 4'); if as <= bs then writeln('failed! string'); end.
The work session is:
C:\fsf\pascal>uname -a MS-DOS X6J0B4 8 00 pc
C:\fsf\pascal>gpc -v Reading specs from c:/fsf/lib/gcc-lib/djgpp/2.952/specs gpc version 20001101, based on 2.95.2 19991024 (release)
C:\fsf\pascal>gpc prx.pas
C:\fsf\pascal>a Test array of char failed! array 4
C:\fsf\pascal>
Best regards G. Rossati