Проблема с процедурой

program lr_3;
 
const
  n = 5;
 
type
  vector = array[1..n] of real;
 
var
  x, y, z: vector;
 
procedure izm(var x, y, z: vector);
  function minus(a: vector): byte;//функция подсчёта отриц. коорд-т
  begin
    var
    i, k: integer;
    begin
      k := 0;
      for i := 1 to n do
        if a[i] < 0 then 
          k := k + 1;
      minus := k;
    end;
  end;
 
procedure vvodvector(var m: vector);//заполнение вектора
var
  i: byte;
begin
  writeln('Введите элементы вектора');
  for i := 1 to n do
    readln(m[i])
end;
 
procedure printvector(v: vector);//вывод вектора
var
  i: byte;
begin
  writeln('Вектор: ');
  for i := 1 to n do
    write(v[i]:4);
  writeln;
end;
 
var
  i: byte;
//в каком из векторов больше всего отрицательных, его преобразования
begin
  vvodvector(x);
  printvector(x);
  vvodvector(y);
  printvector(y);
  vvodvector(z);
  printvector(z);
  
  if (minus(x) > minus(y)) and (minus(x) > minus(z)) then
  begin
    writeln('Больше всего отрицательных в х');
    for i := 1 to n do
    begin
      if x[i] > 0 then x[i] := x[i] * x[i] * x[i];
      write(x[i]:5:0);
    end
  end
  else if (minus(z) > minus(x)) and (minus(z) > minus(y)) then
  begin
    writeln('Больше всего отрицательных в z');
    for i := 1 to n do
    begin
      if z[i] > 0 then z[i] := z[i] * z[i] * z[i];
      write(z[i]:5:0);
    end
  end
  else if (minus(y) > minus(x)) and (minus(y) > minus(z)) then
  begin
    writeln('Больше всего отрицательных в y');
    for i := 1 to n do
    begin
      y[i] := -y[i];
      write(y[i]:5:0);
    end
  end
end.

type
  vector = array[1..n] of real;
 
var
  x, y, z: vector;
 
  function minus(a: vector): byte; //функция подсчёта отриц. коорд-т
  var i, k: integer;
    begin
      k := 0;
      for i := 1 to n do
        if a[i] < 0 then
          k := k + 1;
      minus := k;
    end;