Написать функцию F(A,B), которая добавляет в конец строки A, все буквы из A, не встречающиеся в B. Паскаль или же Си.

Предыдущий
вопрос Следующий
вопрос

function F(A,B: string): string;
var
i: integer;
j: integer;
flag: boolean;
begin
for i := 1 to length(A) do
begin
flag := true;
for j := 1 to length(B) do
begin
if A[i] = B[j] then
begin
flag := false;
break;
end;
end;
if flag then
F := F + A[i];
end;
end;