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

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.

PROCEDURE NECHETN (VAR N:INTEGER; VAR X: MAS);
VAR I,k:INTEGER;
BEGIN
k:=0;
FOR I:=1 TO N DO
    IF (I mod 2) <>0 THEN
        begin
        WRITE (' (',i:2,')=',x[i]:5:2);
        inc(k);
        end;
writeln;
WRITELN('Количество элементов с нечетным индексом = ',k);
END;

 PROCEDURE NECHETN (VAR N:INTEGER; VAR X: MAS);
VAR I,k:INTEGER;
BEGIN
k:=0;
FOR I:=1 TO N DO
    IF A[ i ] mod 2 = 1 THEN
        begin
        WRITE (' (',i:2,')=',x[i]:5:2);
        k:=k+1;
        end;
writeln;

if(frac(a[i])=0)and odd(trunc(a[i]))