Функция: найти повторяющиеся в строке с1 подряд символы и удалить те из них, которые описаны в строке с2

uses Crt;
const N=20;
type
    TString = string[N];
    
var
    i,j: integer;
    FindElement, NewC1: char;
    c1,c2: Tstring;
    StResult: TString;
    sum,del: integer;
    
{ Функция поиска и удаления повторяющихся символов }
function Charone( var c1,c2: TString): TString;
begin
    i:=1;
    Repeat
        FindElement:=c2[i];
        sum:=0;
        for j:=1 to length(c1) do
            begin
                if FindElement = c1[j] then inc(sum);
            end;
    
        If sum>1 then
            begin
                del:=0;
                Repeat
                    for j:=1 to length(c1) do
                        begin
                            if c1[j]=FindElement then Delete(c1,j,1);
                        end;
                    inc(del);
                Until del>sum;
            end;
            
        inc(i);
    Until i>length(c2);
end;    
    
{ ОСНОВНАЯ ПРОГРАММА }
BEGIN
    ClrScr;
    
    writeln('Input symbols into string for C1 (after that press <Enter>):');
    readln(c1);
    writeln;
    
    writeln('Input symbols into string for C2 (after that press <Enter>):');
    readln(c2);
    writeln;
    
    Charone(c1,c2);
    writeln(c1);
        
    write('For ending press <Enter>');
    readln;
END.