Массив. Что нужно добавить? - Pascal ABC

TYPE MAS=ARRAY [1..30] OF REAL;
 VAR A,X:MAS;
 VAR RA:INTEGER;
       PROCEDURE VVOD (VAR N:INTEGER; VAR X:MAS);
 VAR I: INTEGER;
 BEGIN
  WRITE('кол-во элементов массива  ');
  READLN (N);
  FOR I:=1 TO N DO
   BEGIN
    X[I]:=sin(i);
   END;
 END;
 
 PROCEDURE VIVOD (VAR N:INTEGER; VAR X: MAS);
 VAR I:INTEGER;
 BEGIN
   FOR I:=1 TO N DO WRITE (' (',i:2,')=',x[i]:5:2);
   WRITELN()
 END;
 
     {Поиск нечётных элементов}
 PROCEDURE NECHETN (VAR N:INTEGER; VAR X: MAS);
 VAR I:INTEGER;
 BEGIN
   FOR I:=1 TO N DO 
   IF (I mod 2) <>0 THEN WRITE (' (',i:2,')=',x[i]:5:2);
   WRITELN()
 END;
 
      {Основная программа}
 BEGIN
  VVOD(RA, A);
  WRITELN ('massiv a');
  VIVOD (RA, A);
  WRITELN ('Элементы массива A индекс которых нечётный');
  NECHETN (RA, A)
       END.