Заполнить массив из 10 элементов случайными числами в интервале 0..99 и отсортировать по возрастанию суммы цифр

Program z1;         var a: array[1..10] of byte;         i,j,k,r: byte; begin         randomize;         for i: =1 to 10 do begin                 a[i]: =random(100);                 write(a[i],' ');                 a[i]: =(a[i] div 10)+(a[i] mod 10)         end;         k: =1; writeln('');         for j: =0 to 18 do begin                 i: =k;                 while i< =10 do begin                         if a[i]=j then begin                                 r: =a[k]; a[k]: =a[i]; a[i]: =r;                                 write(a[k],' ')                         end;                         i: =i+1                 end         end;             readln end.

9строка будет содержать 2^10 - 1 = 1023 символа, на 1023 месте бедет стоять 9, на 1022 месте будет стоять 8, а на 1021 месте будет стоять 7. ответ. 7.