Cara menghentikan Pengulangan dua kali pada program pascal

Perlu diingat, statement break dalam bahasa pascal hanya menghetikan sebuah loop. jika ada dua pengulangan, maka harus dua kali "break" yang pertama di loop yang terdalam, lalu buat "break" pada yang loop terluar.

contoh:
For I:=1 to 10 do
begin
For J:=1 to 10 do
begin
If J>5 Then
Break;
end;
If I>5 Then
Break;
end;
end;

jangan lupa tandai sebagai jawaban terbaik ya.