Все числа, имеющие четные цифры на четных позициях, увеличить в k раз

program matrix;
 
Uses CRT;
const
  n = 10;
 
var
  c: array [1..n] of integer;
  i, k, m: integer;
 
procedure massiv;
begin
  for i := 1 to n do
  begin
    if ((i mod 2) = 0) and ((c[i] mod 2) = 0) then 
      c[i] := c[i] * k else c[i] := c[i] * m; 
  end;
  Writeln('Vivod rezultata ');
  for i := 1 to n do 
  begin
    Write(c[i], ' ');
  end; 
end;
 
begin
  ClrScr;
  Writeln('VVedite elementi massiva');
  for i := 1 to n do 
  begin
    Write(i, ': ');
    Read(c[i]); 
  end;
  Write('VVedite k ');
  Read(k);
  Write('VVedite m ');
  Read(m);
  massiv;
  Readkey; 
end.

program string2;
 
Uses CRT;
var
  stroka: string;
  posit, i, j, len: integer;
 
begin
  ClrScr;
  Writeln('Vvedite stroku ');
  Read(stroka);
  len := length(stroka);
  posit := 1;
  while posit0 do
  begin
    posit := pos('a', stroka);
    delete(stroka, posit, 1);
    insert('*', stroka, posit);
  end;
  Writeln('Posle obrabotki ');
  Writeln(stroka);
  readkey;
end.