Выбрать из файла только те символы, которые встречаются в нем только один раз - Turbo Pascal - Ответ 3418158

uses crt;
{процедура перевода русских букв из кодировки ANSI в файле
в кодировку ASCII в программе }
procedure Convert(var s:string);
{ANSI -> ASCII}
var i:integer;
begin
for i:=1 to length(s) do
if ord(s[i]) in [192..239] then s[i]:=chr(ord(s[i])-64)
else if ord(s[i]) in [240..255] then s[i]:=chr(ord(s[i])-16)
else if ord(s[i])=168 then s[i]:=chr(ord(240))
else if ord(s[i])=184 then s[i]:=chr(ord(241));
end;
var f:text;
    s,s1,s2:string;
    i:byte;
begin
clrscr;
assign(f,'input.txt');
reset(f);
s1:='';s2:='';
while not eof(f) do
 begin
  readln(f,s);
  Convert(s);
  for i:=1 to length(s) do
  if pos(s[i],s1)=0 then{если символа еще не было}
   begin
    s1:=s1+s[i]; {пишем в 2 строки}
    s2:=s2+s[i];
   end
  else delete(s2,pos(s[i],s2),1); {если был, из второй удаляем}
 end;
close(f);
writeln('Символы, встречающиеся 1 раз:');
write(s2);
readln
end.