diff --git a/lib/rouge/lexers/pascal.rb b/lib/rouge/lexers/pascal.rb
index f8d5fc189f..40bf7f0539 100644
--- a/lib/rouge/lexers/pascal.rb
+++ b/lib/rouge/lexers/pascal.rb
@@ -7,7 +7,7 @@ class Pascal < RegexLexer
       tag 'pascal'
       title "Pascal"
       desc 'a procedural programming language commonly used as a teaching language.'
-      filenames '*.pas'
+      filenames '*.pas', '*.lpr'
 
       mimetypes 'text/x-pascal'
 
diff --git a/spec/lexers/pascal_spec.rb b/spec/lexers/pascal_spec.rb
index 408d4d4c9e..8f6795b313 100644
--- a/spec/lexers/pascal_spec.rb
+++ b/spec/lexers/pascal_spec.rb
@@ -9,6 +9,7 @@
 
     it 'guesses by filename' do
       assert_guess :filename => 'foo.pas'
+      assert_guess :filename => 'foo.lpr'      
     end
 
     it 'guesses by mimetype' do