Программирование, язык Turbo Pascal.Ввести строку с клавиатуры. Поменять все вхождения буквы

Тут не нужна Copy! Безусловно не нужна. Ей не пользуются для замены символа в строке.

var
    s:string;
    i,n,p:integer;

begin
    Readln(s);
    n:=Length(s);
    for i:=1 to n do
        if (s[i]='a') or (s[i]='а') then s[i]:=' ';
    Writeln(s);
    Readln
end.