Программирование, язык 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.