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

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.

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.