for <biến đếm 1>:=<giá trị đầu 1> to <giá trị cuối 1> do
for <biến đếm 2>:=<giá trị đầu 2> to <giá trị cuối 2> do
begin
<câu lệnh>;
end;
Vd:
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;