В массиве, который содержит наибольшее число цифр, заменить все буквы символом "*"

const
n=50;
var
a,b:array[1..n] of char;
xa,xb,i:integer;
begin
ввод;
for i:=1 to n do
if (ord(a[i])>47)and(ord(a[i]<58) then
xa:=xa+1;
if (ord(b[i])>47)and(ord(b[i]<58) then
xb:=xb+1;
 
if xa>xb then
begin
for i:=1 to n do
begin
if (ord(a[i])<47)or(ord(a[i]>58) then
a[i]:='*';
if (ord(b[i])<47)or(ord(b[i]>58) then
b[i]:='+';
end;
end
else
begin
for i:=1 to n do
begin
if (ord(a[i])<47)or(ord(a[i]>58) then
a[i]:='+';
if (ord(b[i])<47)or(ord(b[i]>58) then
b[i]:='*';
end;
end;
вывод;
end.

Program ABC;
const n=10;
type massive=array[1..n]of integer;
var st1,st2:massive;
k,m,i,j:integer;
begin
for i:=1 to n do
readln (a[i]);
end;
procedure output(c:massive);
var i:integer;
begin
for i:=1 to n do
writeln(a[i]);
end;
function fc(a:massive):integer;
var s,i:integer;
begin
s:=0:
for i:=1 to n do
if(a[i]>='0')and(a[i]<='9') then s:=s+1;
fc:=s;
end;
procedure zamena(var a:massive, ch:char);
var i:integer;
begin
for i:=1 to n do
if (a[i]>='A')and(a[i]<='Z')
then a{i}=ch;
end;
begin
input(st1);
input(st2);
k:=fc(st1);
m:=fc(st2);
if k>m then
begin
zamena(st1,'*');
zamena(st2,'+');
end;
else
zamena(st2,'*');
zamena(st1,'+');
end.