Написать программу, которая преобразует массив из 10 элементов в массив из 5 - Pascal ABC

const m = 10;
 
var a: array [1..m] of integer;
    i, j, t: integer;
 
begin
  randomize;
  writeln('Исходный массив:');
  for i := 1 to m do
    begin
      a[i] := -99 + random(199);
      write(a[i]:4)
    end;
  writeln;
  writeln('Преобразованный массив:');
  for i := 1 to m div 2 do
    begin
      a[i] := a[i] * a[m - i + 1];
      write(a[i]:6)
    end;
  writeln;
  for i := 1 to m div 2 - 1 do
    for j := i + 1 to m div 2 do
      if a[i] mod 13 > a[j] mod 13
        then begin
          t := a[i];
          a[i] := a[j];
          a[j] := t
        end;
  writeln('Массив, отсортированный по возрастанию остатков от деления на 13:');
  for i := 1 to m div 2 do write(a[i]:6);
  readln
end.