Pascal-S という Pascal インタプリタがあります。
これのオリジナルは Wirth 先生が 1975 年に書いた Pascal 言語用の Pascal 言語サブセット実装で、ソースコードは 2,000 行程度しかありません。

Pascal-S サブセット概要
1. 中括弧 (波括弧) のブロックコメントはサポートされていません ("insymbol" を参照)。
2. 部分範囲型は実装されていません (type a = 1..10)。
3. 列挙型は実装されていません (type a = (1, 2, 3))。
4. 集合型は実装されていません。
5. 入力ファイルまたは出力ファイル以外のファイルは実装されていません。
6. 動的変数 (ポインタ) は実装されていません。
7. バリアントレコード (レコードの可変部分) は実装されていません。
8. goto は実装されていません。
9. 定義済み関数 succ() と pred() は char 型でのみ機能します。
10. packed キーワード、および pack(), unpack() 手続きは実装されていません。
11. get(), put() およびファイルバッファ変数の処理は実装されていません。
12. write(), writeln() のパラメータとしてのリテラルを除いて、文字列は実装されておらず、フィールド長を適用することはできません。
13. forward 指定子、およびフォワード宣言された手続きと関数は実装されていません。

[Delphi で Pascal-S をコンパイルする (Unicode)]
https://qiita.com/ht_deko/items/77052d1f3c3c1a927034

[Delphi で Pascal-S をコンパイルする (ANSI)]
https://qiita.com/ht_deko/items/f4391f6f8b4b87a1fcf0

[Delphi で Pascal-S をコンパイルする (16bit 版 Delphi)]
https://qiita.com/ht_deko/items/7b8db26fb7ce91542dd9

大文字/小文字を区別しない Pascal-S です。ついでに goto 不使用のソースコードにしてあります。
ANSI 版 Delphi でコンパイルできます。

ソースコードの掲載は省略しました。

ソースコード (16bit) の zip を置いておきますね。
※ Delphi 1 用です。

Downlad: https://ht-deko.com/software/PASCAL-S_16BIT_20200213.zip