Sorting algorithms/Insertion sort: Difference between revisions

Content added Content deleted
Line 42: Line 42:
First : Natural := Item'First;
First : Natural := Item'First;
Last : Natural := Item'Last;
Last : Natural := Item'Last;
J : Integer;
Value : Integer;
Value : Integer;
J : Integer;
begin
begin
for I in (First + 1)..Last loop
for I in (First + 1)..Last loop
Line 55: Line 55:
end loop;
end loop;
end Insertion_Sort;</lang>
end Insertion_Sort;</lang>

=={{header|ALGOL 68}}==
=={{header|ALGOL 68}}==
{{trans|Ada}}
{{trans|Ada}}