Решить в паскале "ввести с клавиатуры 15 элеметов символьного массива. заменить все цифры на "звёздочки", а все "пробелы" на знаки подчёркивания. жду верного решения : ) заранее

Var
mas: array[1..15] of char;
i:byte;
begin   
Write ('Введите массив:');   
For i:=1 to 15 do     
Readln (mas[i]);
For i:=1 to 15 do   
begin     
if (47<ord(mas[i])) and (ord(mas[i]) < 58) then       
mas[i]:='*';     
if mas[i]=' ' then
mas[i]:='_';   
end;     
For i:=1 to 15 do       
Write(mas[i]);   
Readln;
end.