Программирование, язык turbo pascal. ввести строку с клавиатуры. заменить все вхождения буквы "а" (рус и ) на пробел. через функцию copy

Тут не нужна 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.