圖3. if…then…else if…then…else if…then……else多支路語句

當支路越來越多時，用嵌套的 if 語句就顯得太繁瑣。如果多支路的選擇是由同一個變量或表達式的不同結果值所決定的，其實也可以用 case 語句來實現，而且更顯簡潔、清晰。如圖3的例子，用 case 語句可以改寫成：

圖4.  case多支路語句

程序執行中，需要多次規律性的重復處理時，特別是一些數組的運算處理時，就需要用到循環語句。Pascal 語言中循環語句主要有while…do 語句、repeat…until 語句和 for…do 語句。

while…do 語句的基礎格式如下：

while 判斷條件 do 循環體語句;

每輪循環之前，都先進行條件判斷，當判斷條件滿足時，則執行循環體；當判斷條件不滿足，則結束循環。循環體可以是單個語句，也可以是由 begin 和 end；包含起來的程序塊，但其語句中一定要包含有能改變判斷條件控制變量的語句，能使判斷條件不滿足，以免形成死循環。

圖5.  while…do循環語句

與 while…do 語句相反，repeat…until 語句是先執行循環體，然后再看判斷條件是否滿足，如果滿足則結束循環，所以循環體至少會被執行一次。循環體可以是單個語句，也可以由多個語句組成，但不一定用 begin 和 end；包含起來，repeat 和 until 本身具備包含程序塊的功能。其基礎格式如下：

repeat 循環體語句 until 判斷條件;

圖6.  repeat…until循環語句

while…do 語句和 repeat…until 語句中循環次數不定，根據某一條件來決定是否繼續循環，如果要進行固定次數的循環，可以用 for…do 語句：

for 計次變量:=初始值 to 終止值 do 循環體；

for 計次變量:=初始值 downto 終止值 do 循環體；

其中，計次變量一般為整數類型（也可以是字符類型）；第一輪循環時，計次變量被賦予初始值，此后每輪循環計次變量都會遞增（to 關鍵字）或遞減（downto 關鍵字）1；如果計次變量沒超過終止值，則執行循環體，否則結束循環。

循環體內還可以用 continue 和 break 這兩個關鍵字對循環做額外的控制，上述的三種循環語句內都可使用，一般配合條件語句決定什么情況下要 continue 或 break；continue 起效時，在該輪次循環內，循環體里在其后的語句將不再執行，而是立即進行下一輪次循環是否進行的條件判斷；break 則直接就此結束循環；它們的影響范圍只在它們所處的那一層級的循環語句。

圖7. for…do循環語句

for…do 語句還有一種特殊形式的for…in…do 循環，本文不再贅述，感興趣的可以移步Free Pascal wiki了解。

較為復雜的運算，可能會用到循環語句的嵌套，Pascal語言中允許任何類型的循環語句嵌套于任何類型的循環語句內。

圖8.  循環語句嵌套