Даны векторы X и Y. Получить вектор Z по формуле zi= xi + yi и подсчитать количество элементов вектора X, меньших 0. Паскаль

Function prime(x:integer):boolean;
var
 t:boolean;
 d:integer;
begin
 t := true;
 d := 2;
 while t and (d*d <= x) do
   begin
   if x mod d = 0 then 
     t := false;
   d := d + 1
   end;
 prime := t
end;

function order(x:integer):boolean;
var
 t:boolean;
 d:integer;
begin
 d := -1;
 repeat
   t := x mod 10 > d;
   d := x mod 10;
   x := x div 10
 until not t or (x = 0);
 order := t
end;

var
 t:boolean;
 i,k,n:integer;
begin
 t := false;
 read(k,n);
 for i := k to n do
   if prime(i) then
   if order(i) then
     begin
     write(i,' ');
     t := true
     end;
 if not t then
   write(0)
end.

#include <stdio.h>

#include <iostream>

#include <locale.h>

#include <ctime>

int main() {

setlocale(LC_ALL, "rus");

system("chcp 1251");

const int SIZE = 256;

int i, j, ch;

char str[SIZE];

std::cout << "Your string, please" << std::endl;

for (i = 0; i < SIZE - 1 && (ch = getchar()) != -1 && ch != '\n'; i++) {

 str[i] = ch;

}

std::cout << "Изначальная строка:\n" << str << "\n\n" << std::endl;

for (i = 0; i < SIZE - 1; i++) {

 if (str[i] == '.') {

  if (str[i + 1] == '.' && str[i + 2] == '.') {

   i += 2;

   continue;

  }

  else {

   for (j = SIZE - 3; j > i; j--) {

    str[j + 2] = str[j];

   }

   str[i + 1] = '.';

   str[i + 2] = '.';

   i += 2;

  }

 }

}

std::cout << "Измененная строка:\n" << str << "\n\n" << std::endl;

return 0;

}