Все элементы с четными номерами уменьшить на 3

program;
uses crt;
var C:array [1..50] of real;
  k:real;
  otv:char;
  i,N:integer;
  otv2:boolean;
  begin
    repeat
      clrscr;
      writeln ('введите размерность вектора');
      readln(N);
      writeln('введите вектор C');
      for i:=1 to N do
      begin
        write('C [',i:2,']=>');
        readln (C[i]);
      end;
      clrscr;
      writeln ('вектор C');
      for i:=1 to N do
        write (C[i]:5:2);
        writeln;
        k:=0;
        for i:=1 to N do
        begin
          if C [i]=0 then
            begin
          if С[i] mod 2=0 then С[i]:=С[i]-3;
           end; 
        end;
        writeln ('все элементы с четными номерами уменьшенные на 3 =',k:5:2);
        writeln ('изменненый вектор');
        for i:=1 to N do 
          write (C[i]:5:2);
          writeln;
          writeln ('хотите продолжить (y/n)?');
          readln (otv);
          if ((otv='y') or (otv='y'))
          then otv2:=false
          else break
    until (otv2=true);
  end.