В массиве найти цифры 1, 2, 3, 4, 5; заменить их на символ (*) и посчитать количество замен

if s[i] in ['1','2','3','4','5'] then

заменить их на символ (*)

uses crt;
var mas:array[1..100] of integer;i,n,m:integer;
begin
writeln ('введите n');
readln(n);
for i:=1 to n do
begin
write ('введите mas(i)');
readln (mas[i]);
end;
m:=0;
for i:=1 to n do
begin
if mas[i]=1 then mas[i]:='*';
if mas[i]=2 then mas[i]:='*';
if mas[i]=3 then mas[i]:='*';
if mas[i]=4 then mas[i]:='*';
if mas[i]=5 then mas[i]:='*';
m:=m+1;
end;
writeln(m);
end

uses
  crt;
 
var
  mas: array[1..100] of char;i, n, m: integer;
 
begin
  writeln('введите n');
  readln(n);
  for i := 1 to n do
  begin
    write('введите mas(i)');
    readln(mas[i]);
  end;
  m := 0;
  for i := 1 to n do
  begin
    if mas[i] = '1' then mas[i] := '*';
    if mas[i] = '2' then mas[i] := '*';
    if mas[i] = '3' then mas[i] := '*';
    if mas[i] = '4' then mas[i] := '*';
    if mas[i] = '5' then mas[i] := '*';
    m := m + 1;
  end;
  writeln(m);
end.

uses crt;
var a:array[1..1000] of char;
i,n,kolvo:integer;
begin
 write('Vvedite n: ');
  readln(n);
 for i:=1 to n do
  begin
   write('Vvedite elemente a[',i,']: ');
    readln(a[i]);
   if a[i] in ['1','2','3','4','5'] then
    Begin
     a[i]:='*';
     kolvo:=kolvo+1;
    end;
  end;
 write('Kolichestvo zamen: ',kolvo);
end.