Из элементов исходного массива сформировать новый массив по заданному правилу

const nmax=100;
var a,c:array[1..nmax] of integer;
    n,i:byte;
begin
randomize;
repeat
write('Размер массивов от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Массив С');
for i:=1 to n do
 begin
  c[i]:=-25+random(51);
  write(c[i]:4)
 end;
writeln;
writeln('Массив A');
for i:=1 to n do
 begin
  if c[i]<0 then a[i]:=c[i]+2
  else if c[i]>0 then a[i]:=c[i]-2;
  write(a[i]:4)
 end;
end.

const
    maxn=100;   //максимальное количество элементов массива
var
    n,i:integer;
    a,c:array[1..maxn] of real;
begin
  write('n= ');
  readln(n);   //ввод реального количества элементов массива
  writeln('Введите элементы массива C ');
  for i:=1 to n do
    begin
      write('C[',i,']= ');
      readln(c[i]);   //вводим элементы массива, определенного количества n
    end;
    
  for i:=1 to n do
      if c[i]>0
         then a[i]:=c[i]+2
         else a[i]:=c[i]-2; 
     
  write('Исходный массив C, состоящий из ',n,' элементов');
  for i:=1 to n do
     write(c[i]:8:2);   //выводим исходные данные элементов массива
  writeln;
  
  write('Конечный массив A');
  for i:=1 to n do
     write(a[i]:8:2);
  writeln;
  writeln('Для завершения нажмите <Enter>');
  readln;
end.