например, в файле записано:
10
1 2 12 3 8 9 1 5 40 14
а выдает:
1 1 2 0 5 8 9 0 14 40.
а где ошибка - не вижу.
program sort;
const nmax = 100;
var a : array [1..nmax] of integer;
n : integer;
i, j, k : integer;
dat, rez : text;
begin
assign(dat, 'data.txt');
reset(dat);
assign(rez, 'rezultat.txt');
rewrite(rez);
read(n);
for i := 1 to n do read(a[i]);
for i := 1 to n-1 do
begin
k := i;
for j := i+1 to n do
if a[j] <= a[k] then k := j;
a[i] := a[i] + a[k];
a[k] := a[i] - a[k];
a[i] := a[i] - a[k];
end;
for i := 1 to n do
write(a[i], ' ');
close(dat);
close(rez);
end.