В строке исключить все повторяющиеся символы

var
a:string;
b:set of char;
i:integer;
begin
b:=['1','2','3','4','5','6','7','8','9'];
readln(a);
for i:=length(a) downto 2 do
begin
if a[i]=a[i-1]then delete(a,i,1);
if a[i]in b then a[i]:='0';
end;
writeln(a);
readln;
end.

var
f:text;
k,i,sum:integer;
sred:real;
a:array[1..100]of string;
begin
assign(f,'m8.txt');
reset(f);
while not eof(f) do
begin
inc(k);
readln(f,a[k]);
end;
close(f);
for i:=1 to k do
sum:=sum+length(a[i]);
sred:=sum/k;
if trunc(sred)<>sred then writeln('strok net')
else begin
assign(f,'output.txt');
rewrite(f);
for i:=1 to k do
if length(a[i])=trunc(sred)then writeln(f,a[i]);
end;
close(f);
end.

var
f:text;
k,i,sum:integer;
sred:real;
a:array[1..100]of string;
begin
assign(f,'m8.txt');
reset(f);
while not eof(f) do  {пока не кончился файл, считываем из него строки и заносим их в массив а} 
begin
inc(k);
readln(f,a[k]);
end;
close(f);
for i:=1 to k do            {перебираем все элементы массива и суммируем длину} 
sum:=sum+length(a[i]); 
sred:=sum/k;               {находим среднюю длину}
if trunc(sred)<>sred then writeln('strok net') {если получилось дробное число, ответа не будет- длина строки число целое}
else begin                  {если длина - целая, открываем файл для записи}
assign(f,'output.txt');
rewrite(f); 
for i:=1 to k do           {перебираем строки и ищем длину, соответсвующую среднему значению}
if length(a[i])=trunc(sred)then writeln(f,a[i]);   {найденную строку заносим в файл}
end;
close(f);
end.