В массиве чисел заменить числа равные А или В на нули, подсчитать количество замен и зафиксировать их места.

Program Lab 2;
    uses crt;
    const
            n=10; x=5; y=2;
    type
           mass=array[1..n] of real;
    var
          a,b: mass;
          i,k:  integer;
          pos: array [1..n] of integer;
   procedure Vv (k: integer; var arr: mass);
                 var i: integer;
                 begin
                        writeln ('Vv. razmer massiva: ');
                        for i:=1 to n do
                        begin
                               write ('a[',i,']=');
                               readln(a[i]);
                 end;
   procedure Viv (k: integer; var arr: mass);
                 var i: integer;
                     begin
                        writeln ('Vivod massiva: ');
                        for i:=1 to n do
                        write (i,':',a[i]:4:2,' ');
                        writeln;
                        readln;
                    end;
        begin
           clrscr;
           Vv (n,a);
           Viv (n,a);
           k:=0;
           if a[i]=x,y then begin
           k:k+1; a[i]:=0
           b[k]:=a[i]; pos[k]:=i;
       end;
       writeln ('Izmenenny massiv');
       for k:=1 to n do;
       write (k,':',b[k]:4:2,' ');
       writeln;
       readln;
   end.

read(a,b);
k:=0;
h:=0;
for i:=1 to n do
 if (c[i]=a) or (c[i]=b) then begin
   inc(h);
   inc(k);
   l[k]:=i;
 end;
writeln;
writeln('Все замен было ',h);
writeln('Были совершены замены на следующих местах: ');
for i:=1 to k do
 write(l[k]:4);

Program Lab 2;
uses crt;
const
       n=10; x=5; y=2;
type
      mass=array[1..n] of integer;
var
     a: mass; 
     i,k: integer;
     pos: array [1..n] of integer;
procedure Vvod (var a: mass);
            var i: integer;
               begin 
                 clrscr; 
                 writeln ('Vv. razmer massiva: ');
                 for i:=1 to n do
                 readln(a[i]);
               end;
procedure Vivod (a: mass);
            var i: integer;
            begin
              writeln ('Vivod massiva: ');
              for i:=1 to n do
              write (i,':',a[i]:4,' ');
              writeln;
              readln;
            end;
begin
       clrscr;
       Vvod (a);
       Vivod (a);
       k:=0;
       for i:=1 to n do;
         begin
          if (a[i]=x) or (a[i]=y) then a[i]:=0;
          k:k+1;  pos[k]:=i;
         end;
          writeln ('Izmenenny massiv:'); 
          writeln (‘Zamen bilo: ‘,k);
          writeln (‘Zameneni pozicii: ‘);
          for i:=1 to k do;
          write (k,':',a[k]:4,' ');
          writeln;
          readln;
end.

Program Lab 2;
uses crt;
const
       n=10; x=5; y=2;
type
      mass=array[1..n] of integer;
var
     a,pos: mass; 
     i,k: integer;
procedure Vvod (a: mass);
            var i: integer;
               begin  
                 writeln ('Vv. massiva: ');
                 for i:=1 to n do
                    readln(a[i]);
               end;
procedure Vivod (a: mass);
            var i: integer;
            begin
              writeln ('Vivod massiva: ');
              for i:=1 to n do begin
                 write (i,':',a[i]:4,' ');
                 writeln;
              end;
            end;
begin
       clrscr;
       Vvod (a);
       Vivod (a);
       k:=0;
       for i:=1 to n do;
          if (a[i]=x) or (a[i]=y) then begin
             a[i]:=0;
             k:=k+1;  pos[k]:=i;
         end;
          writeln ('Izmenenny massiv:'); 
          for i:=1 to n do begin
              write(i,':',a[i]:4,' ');
              writeln;
          end;
          writeln;
          writeln ('Zamen bilo: ',k);
          writeln ('Zameneni pozicii: ');
          for i:=1 to k do begin
              write (k,':',pos[k]:4,' ');
              writeln;
          end;
          writeln;
          readln;
end.