Pascal из заданного текста предложения выбрать и напечатать только те символы, которые встречаются в нем только один раз (в том порядке, в котором они встречаются в тексте)

Вот, посмотри, формат txt

Var       i, n, s: integer; begin       readln(n);       i : = 0;       s : = 0;             while i < 7 do       begin               if (n mod 2 = 1) then begin                       s : = s + n;                       i : = i + 1;               end;               n : = n + 1;       end;             writeln(s); end. var       i, n, s: integer; begin       readln(n);       i : = 0;       s : = 0;             repeat               if (n mod 2 = 1) then begin                       s : = s + n;                       i : = i + 1;               end;               n : = n + 1;       until i > = 7;             writeln(s); end. var       i, n, s: integer; begin       readln(n);       n : = n + (n + 1) mod 2;       s : = 0;             for i : = 1 to 7 do       begin               s : = s + n;               writeln(n);               n : = n + 2;       end;             writeln(s); end.