Помогите с задачей на языке паскаль

Дается массив, заменить в нем все символы "*", сдвигая конец последовательности на освободившиеся места, а освободившиеся в конце строки символы заменить пробелами. Использовать только один просмотр.
Вот мой код:
cоnst n=10;
var i,j:integer;
m:array[1..n] of char;
begin
writeln('Заполните массив знаками, в том числе *');
for i:=1 to n do
begin
readln(m);
if m='*' then
for j:=1 to n do
begin
m[j]:=m[j+1];
m:=' ';
end;
end;
write(m);
readln
end.

У меня при вводе символа "*", выдает ошибку 201. Подскажите, что мне делать?