Группа людей со сходными интересами, которые общаются друг с другом в основном через Интернет. 12 букв. (8-я - А, 12-я - И)

Const
  n = 10;
var
  a: array[1..n] of integer;
  i, j, t: integer;
 
begin
  Randomize;
  Writeln('Исходный массив');
  for i := 1 to n do
  begin
    a[i] := Random(16)-10;
    Write(a[i]:4)
  end;
  Writeln;
  for i := 1 to n-1 do
    for j := 1 to n-i do
      if a[j] > a[j+1] then
      begin t := a[j]; a[j] := a[j+1]; a[j+1] := t end;
  Writeln('Отсортированный по возрастанию массив');
  for i := 1 to n do Write(a[i]:4);
  Writeln
end.

Тестовое решение:
Исходный массив
 -10  -9   2  -3  -6 -10  -2   5   4   0
Отсортированный по возрастанию массив
 -10 -10  -9  -6  -3  -2   0   2   4   5

Const
  m = 3;
  n = 4;
var
  a: array[1..m, 1..n] of integer;
  b: array[1..m] of real;
  i, j, k: integer;
  min:real;

begin
  Writeln('Введите оценки студентов');
  for i := 1 to m do
  begin
    b[i]:=0;
    for j := 1 to n do
    begin Read(a[i,j]); b[i]:=b[i]+a[i,j] end;
    b[i]:=b[i]/n
  end;
  k:=1; min:=b[1];
  for i:=2 to 3 do
    if min>b[i] then begin min:=b[i]; k:=i end;
  Writeln('Студент номер ',k,' имеет минимальный cредний ',min:5:2)
end.

Тестовое решение:
Введите оценки студентов
5 4 4 3
3 5 3 4
4 5 4 5
Студент номер 2 имеет минимальный cредний   3.75