Вычислить суммы А+B; C+D векторов, заданных случайным образом

program vektora;
var AB,CD:real; i:integer;
    A:array[1..5] of real;
    B:array[1..5] of real;
    C:array[1..10] of real;
    D:array[1..10] of real;
begin
     for i:=1 to 5 do
    begin
         A[i]:=random;
         write (A[i]:7:3);
    end;
    writeln;
 
    for i:=1 to 5 do
    begin
         B[i]:=random;
         write (B[i]:7:3);
    end;
    writeln;
 
    for i:=1 to 10 do
    begin
         C[i]:=random;
         write (C[i]:7:3);
    end;
    writeln;
 
    for i:=1 to 10 do
    begin
         D[i]:=random;
         write (D[i]:7:3);
    end;
    writeln;
 
 
           begin
           for i:=1 to 5 do
               begin
               AB:=A[i]+B[i];
               write (AB:7:3);
               end;
           end;
 
            begin
           for i:=1 to 5 do
               begin
               AB:=A[i]+B[i];
               write (AB:7:3);
               end;
           end;
      readln;
end.

k:=0;
for i:=1 to n do
 if a[i]<0 then
  k:=k+1;

var Z:integer; // Счетчик отрицательных элементов
...................
if AB < 0 then inc(Z);
end;
write(Z);

program vektora;
uses crt;
type vekt=array[1..100] of real;
procedure Vvod(var v:vekt;x:byte);//создание векторов
var i:byte;
begin
for i:=1 to x do
v[i]:=10*random-6;//нужно чтоб в векторе были отрицательные(у нас от -6 до +4)
end;
procedure Vyvod(var v:vekt;x:byte;s:string);//вывод их на экран
var i:byte;
begin
writeln('Вектор ',s);
for i:=1 to x do
write(v[i]:5:1);
writeln;
writeln;
end;
procedure Summ(var v1:vekt;v2:vekt;x:byte);//сложение векторов
var i:byte;
begin
for i:=1 to x do
v1[i]:=v1[i]+v2[i];
end;
function Kol(v:vekt;x:byte):byte;//подсчет отрицательных
var i,k:byte;
begin
k:=0;
for i:=1 to x do
if v[i]<0 then k:=k+1;
Kol:=k;
end;
var A,B,C,D:vekt;
    n,kA,kB:byte;
begin
clrscr;
write('Размер векторов n=');//задаем размер
readln(n);
Vvod(a,n);
Vvod(b,n);
Vvod(c,n);
Vvod(d,n);
Vyvod(a,n,'A');
Vyvod(b,n,'B');
Summ(a,b,n);
Vyvod(a,n,'A+B');
writeln('Количество отрицательных=',Kol(a,n));
writeln;
Vyvod(c,n,'C');
Vyvod(d,n,'D');
Summ(c,d,n);
Vyvod(c,n,'C+D');
writeln('Количество отрицательных=',Kol(c,n));
readln
end.