Исправить ошибки в 2-х программах на сортировку массивов

[ArsGo]

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

{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
a:array [1..1000] of integer;
n,j,i,x,imin,p,elem:integer;
begin
p:=0;
read (n);
for i:=1 to n do
read (a[n]);
elem:=a[1];
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;
    begin
     x:=a[j];
     a[j]:=a[imin];
     a[imin]:=x;
     if a[j]=elem then
     p:=p+1;
    end;end;
    writeln(p);
readln;readln;
end.

2) Нужно вывести состояние массива после каждой вставки при сортировке вставками. Почему ничего не выводится?

uses
  SysUtils;
 
var
a,b:array[1..1000] of integer;
i,j,n,x,l,k,o,c,d,r:integer;
fl:boolean;
begin
 fl:=false;
 r:=0;
 read (n);
 for  o:= 1 to n do
  read(a[o]);
  for o:=1 to n do
  a[o]:=b[o];
   for j:=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
     fl:=true;
     x:=a[j-1];
    a[j-1]:=a[j];
    a[j]:=x;
    end;
    if fl=true then begin
   for k:=1 to n-1 do
   write (a[k],' ');
   writeln(a[n]);
   fl:=false;
   end
    else break;
end;end;end;
readln;readln;
end.