Сортировка вставками

var a:array [1..100] of integer;
    x,i,j,n,f: integer;
begin
write ('размер масива => '); read (n);
for i:=1 to n do begin
write ('Введите член ',i,'-ого значения => '); read (a[i]); end;
  for i:=2 to n do begin
  x:=a[i];
  j:=i-1;
while (j>0) and (x<a[j]) do begin
  a[j+1]:=a[j];
  j:=j-1;
  end;
  a[j+1]:=x;
  end;
for i:=1 to n do
write ('a[',i,']=',a[i],'  ');
end.

uses crt;
Var a: array [1..99] of integer; i,j,n,c, nmin: integer;
begin
writeln('ââåäèòå êîë-âî ýëåìåíòîâ');
readln(n);
for i:=1 to n do
a[i]:= random (10);
writeln('èñõîäíûé ìàññèâ');
for i:=1 to n do
write(a[i],'|');
writeln;
for i:=1 to n - 1 do begin
nmin:=i;
for j:= i+1 to n do
if a[j] < a[nmin] then nmin:=j;
//if nmin <> i then begin
c:=a[i];
a[i]:=a[nmin];
a[nmin]:=c;
end;
for i:=1 to n do
write(a[i],'|');
//end;
//end;
end.