Упорядочить одномерный массив методом выбора /Дельфи/

const nmax=10;
var i, n: byte; l, cmin: real;
    a, c: array[1..nmax] of real;
    dat, res: textfile;
begin
 assign(dat, 'С:\&1.txt'); reset(dat);
 assign(res, 'С:\&2.txt'); rewrite(res);
 writeln(res, 'Количество элементов: ');
 readln(dat, n);
 writeln(res, 'Введены элементы массива A:');
 for i:=1 to n do
  begin
   read(dat, A);
   writeln(res, 'A[', i, ']:',a:8:2);
  end;
 for i:=2 to n do
  begin
   c[i-1]:=A*A-A[i-1]*A[i-1];
  end;
 l:=0;
 l:=c[1];
 cmin:=l;
 for i:=1 to n-1 do if c<cmin then cmin:=c;
 writeln(res, 'Наименьшее значение разностей (A)^2 и (A[i-1])^2 равно: ', cmin:8:2, '.');
 writeln(res, 'Массив C:');
 for i:=1 to n-1 do writeln(res, 'C[', i, ']:', c:8:2);
 writeln('Пресс Ентер...');
 readln;
 closefile(dat);
 closefile(res);
end.