pascal程序：输入n个数字，找出最小数的位置，并把它和第一个数对调

program xxx(input,output);
var
ls,i,n,min,k:integer;
a:array[1..1000]of integer;
begin
readln(n);
k:=0;
min:=10000;
for i:=1 to n do begin
read(a[i]);
if a[i]<min then begin
min:=a[i];
k:=i;
end;
end;
ls:=a[1];
a[1]:=a[k];
a[k]:=ls;
for i:=1 to n do write(a[i],' ');
end.