Имеется массив, содержащий координаты точек на плоскости. осуществить перевод данных координат из декартовой системы в полярную и определить количество точек, попавших в каждый квадрант. c++

Const  n=10;   var a: array[1..n] of integer;   s,p,k,i: integer;   begin  s: =0;   p: =1;   randomize;   for i: =1 to n do begin  a[i]: =random(100);   if (a[i]> 0) and (a[i] mod 3 =0) then k: =k+1;   p: =p*a[i];   s: =s+a[i];   write(a[i], ' ')  end;   writeln('сумма = ',s);   writeln('произведение = ',p);   writeln('количество положительных и кратных 3-м = ',k);   end.

Program arr_length; const   in_filename = 'input.txt';   out_filename = 'output.txt'; var   filein,fileout: textfile;   s,t: string; begin   writeln('загружаю входные ');   t : = '';   assignfile(filein, in_filename);   assignfile(fileout, out_filename);       reset(filein);       while not eof(filein) do           begin               readln(filein, s);               if (s = '0') then                         break               else                   t : = t + s;           end;       closefile(filein);       rewrite(fileout);       writeln(fileout, length(t));       closefile(fileout); end.