Файл: Отсортировать массив по возрастанию суммы цифр и записать его в файл output.txt.

program qq;
var f:text;
    n,j,c,i:integer;
    a:array[1..100] of integer;
begin
assign(f,'C:\input.txt');
reset(f);
while not eof(f) do
begin
for i:=1 to 100 do
readln(f,a[i]);
end;
for i:=1 to 100-1 do 
  begin
   for j:=100-1 downto i do
    if (A[j]mod 10)+(a[j]div 10) > (A[j+1]mod 10)+(a[j+1]div 10) then
     begin
       c := A[j];
       A[j] := A[j+1];
       A[j+1] := c;
     end;
 end;
close(f);
assign(f,'C:\output.txt');
rewrite(f);
for j:=1 to 100 do
 writeln(f,a[j]);
close(f);
end.

var n , i , j , t : integer;
    a : array[1..100] of integer;
 
function sum(x : integer) : integer;
var s : integer;
begin
    s := 0;
    while x > 0 do begin
        s := s + x mod 10;
        x := x div 10;
    end;
    sum :=s;
end;
 
begin
    assign(input , 'input.txt'); reset(input);
    n := 0;
    while not eof(input) do begin
        inc(n);
        read(a[n]);
    end;
    for i := 1 to n - 1 do
        for j := i + 1 to n do
            if sum(a[i]) > sum(a[j]) then begin
                t := a[i];
                a[i] := a[j];
                a[j] := t;
            end;
    for i := 1 to n do
        writeln(a[i]);
end.