Массивы, дельфи консольная.

[ArsGo]

1) Продемонстрируйте работу сортировки массива методом вставки. Для этого выведите состояние данного массива после каждой вставки на отдельных строках, если массив упорядочен изначально, то не выводить ничего. Как упростить поверку на отсортированность массива? и где выводить состояния массива?

var
a,b:array[1..1000] of integer;
i,j,n,x,l,k,o,c,d,r:integer;
fl:boolean;
begin
fl:=true;
r:=0;
read (n);
for  o:= 1 to n do
read(a[o]);
for l:=1 to n do
a[l]:=b[l];
for c:=1 to n do
for d:=1 to n-1 do
if b[d]>b[d+1]
then begin
x:=b[j];
b[j]:=b[j+1];
b[j+1]:=x;
r:=r+1;
end;
if r>0 then begin
for i:=1 to n do begin
for j:=i downto 2 do begin
if a[j]<a[j-1] then begin
x:=a[j-1];
a[j-1]:=a[j];
a[j]:=x;
end
else break;
end;
end;end;
readln;readln;
end.

2) Вывести количество перемещений первого элемента в сортировке методом выборки. Как и куда поставить счетчик " l "?

var
a:array[1..1000] of integer;
b,j,i,n,x,imin,l:integer;
begin
l:=0;
read(n);
for b:=1 to n do
read (a[b]);
for j:= 1 to n do
begin
imin:=j;
for i:=j to n do
begin
if a[i]<a [imin] then
imin:=i;
end;
x:=a[j];
a[j]:=a[imin];
a[imin]:=x;
end;
for b:=1 to n do
writeln (l);
readln;readln;
end.