Something

program forcapc;
var a:string;
i:byte;
b:string;
c:char;

begin

a:='CASA';
b:=a;
for i:=1 to length(a) do
b[i]:='-';

while(b<>a) do
begin
writeln(b);
writeln('Digite uma letra');
readln(c);

for i:=1 to length(a) do
 if(upcase(a[i]) = upcase(c)) then b[i]:=upcase(c);
end;


writeln('Palavra foi encontrada: ',b);
readln;
end.