Переписать в массив y(n) отрицательные элементы массива х, деленные на 2

const
  m = 10;
var
  x, y: array[1..m] of real;
  t: real;
  i, k, n: integer;
  flag: boolean;
begin
  write('1 <= n <= 10;  n = ');
  readln(n);
  writeln('Введите ', n, ' чисел:');
  for i := 1 to n do read(x[i]);
  writeln('Массив X:');
  for i := 1 to n do
    begin
      writeln(x[i]);
      if x[i] < 0 then
        begin
          inc(k);
          y[k] := x[i] / 2
        end
    end;
  if k > 0 then
    begin
      writeln('Массив Y:');
      for i := 1 to k do writeln(y[i]);
      repeat
        flag := false;
        for i := 2 to k do
          if y[i] < y[i - 1] then
            begin
              flag := true;
              t := y[i];
              y[i] := y[i - 1];
              y[i - 1] := t
            end
      until not flag;
      writeln('Упорядоченный массив Y:');
      for i := 1 to k do writeln(y[i]);
      writeln('Номера одинаковых элементов:');
      flag := false;
      for i := 2 to k do
        if y[i] = y[i - 1] then
          begin
            flag := true;
            write('(', i - 1, ', ', i, ') ')
          end;
      if not flag then writeln('<Одинаковых элементов не найдено>')
    end
  else writeln('Отрицательных элементов не найдено')
end.