ПОДСКАЖИТЕ ПОЖАЛУЙСТА(МАССИВ  В ПАСКАЛЕ)!
Дана задача :
Дан массив A вещественного типа, содержащий 20 положительных и отрицательных элементов. Сформировать массив B из положительных элементов массива A, имеющих четный индекс. Найти сумму квадратов элементов нового массива.

Есть решение:
var   
mas, c: array[1..20]of real; 
  i, c_n: integer;   
s: real;
begin 
  randomize;     
   for i := 1 to 20 do  
   begin     
   mas[i] := random(100) - 50;     
   if (mas[i] > 0) and (i mod 2 = 0)
then begin            c_n := c_n + 1;       
    c[c_n] := mas[i];         
   write(c[c_n], ' ');           
 s := s + c[c_n] * c[c_n];     
  end;    end;    writeln();    writeln('S = ', s);end.

ПОДСКАЖИТЕ ПОЖАЛУЙСТА! КАК ВЫВЕСТИ НА ЭКРАН ПЕРВОНАЧАЛЬНЫЙ МАССИВ, в добавок к этому решению???