Trong các câu lệnh lặp repeat...until hay là while..do có thể bị lỗi lặp vô hạn lần là vì điều kiện luôn đúng dẫn đến câu lệnh luôn được thực hiện

Cách khác phục:

Trong các câu lệnh phải có ít nhất 1 câu lệnh làm thay đổi giá trị của điều kiện để 1 lúc nào đó dẫn đến điều kiện sai để kết thúc vòng lặp.

Khi ta dùng các lệnh lặp như while..do với số lần lặp chưa biết trước mà không check các phép gán ở trên hay phép so sánh mà máy cho là đúng, không bao giờ sai thì rất dễ dính đòn vô hạn từ lệnh lặp và bắt buộc phải tắt chương trình và mở lại.
Vd như:
a:=3;
While a<5 do write(a);
Cách khắc phục: Cần tìm hiểu kĩ về khái niệm của các câu lệnh vòng lặp để tránh bị lỗi vòng lặp vô hạn. Đối với while....do thì cần phải để while..do có câu lệnh làm thay đổi giá trị của điều kiện thì mới làm câu điều kiện đó sai và mới cho ra kết quả (đúng với khái niệm của while..do).
Khắc phục lỗi trên:
a:=3;
While a<=5 do
Begin
      Write(i:3);
      a:=a+1;
*Ta cũng cần phải xem xét câu lệnh lặp repeat...until vì nó cũng có tính chất "với số lần lặp chưa biết trước" như while..do nhưng điều kiện phải đúng (khác với while..do với điều kiện phải sai thì mới in ra kết quả)