[fpc-pascal]No runtime range checking?

[Andy Sy]

program blah;

type
   stringy = array[4..10] of char;

var
   C: stringy;
   D: array[2..5] of char;

procedure showstring(I:Integer);
begin
   Write(C[I]);
end;

begin
   C:='ABCDEFGHIJKLMNOPQRSTUVWXYZ';
   D:='ABCDEFGHIJKLMNOPQRSTUVWXYZ';
   Writeln(D);
   showstring(-5);
end.


FPC doesn't even complain about range exceeded whether
during compilation or runtime... isn't this an egregious
violation of Pascal's strict typing philosophy?  Does
Turbo Pascal/Delphi behave this way as well?