Оставить в строке только один экземпляр каждого встречающегося символа

program kiruxa;
var
    s1,s2,s3: string;
    i: byte;
begin
    write('String: ');
    readln(s1);
    s2 := '';
    for i:=1 to length(s1) do begin
        s3 := copy(s1,i,1);
        if pos(s3,s2) = 0 then
            s2 := s2 + s3
    end;
    writeln('String: ',s2);
readln
end.

 if pos(s3,s2) = 0 then
            s2 := s2 + s3

program kiruxa;
const
  N = 10;
 
var
  a: array [1..N] of real;
  max, temp: real;
  i, j: integer;
 
begin
  randomize;
  for i := 1 to N do
    a[i] := random + random(10);
 
  for i := 1 to N do
    write(a[i]:6:3);
 
  max := a[1];
  for i := 2 to N do
    if a[i] > max then
      max := a[i];
 
  writeln;
  writeln('max = ', max:5:3, ' 20% = ', 0.2 * max:5:3);
 
  j := 1;
  for i := 1 to n do
    if max - a[i] <= 0.2 * max then
      begin
    temp := a[i];
    a[i] := a[j];
    a[j] := temp;
    inc(j);
      end;
 
  for i := 1 to N do
    write(a[i]:6:3);
 
  readln;
end.

if pos(s3,s2) = 0 then //если символа s3 нет в строке s2 то сливаем (присоединяем) в строку этот символ
s2 := s2 + s3

program kiruxa;
const
  N = 10;
 
var
  a: array [1..N] of real;
  max, temp: real;
  i, j: integer;
 
begin
  randomize; // рандом
  for i := 1 to N do
    a[i] := random + random(10); // заполняем массив случайными числами
 
  for i := 1 to N do
    write(a[i]:6:3); // вывод массива
 
  max := a[1]; // первоначально присваевываем переменную макс первый элемент для дальнейшего сравнения
  for i := 2 to N do // идет по циклу для сравнения
    if a[i] > max then // если следующий элемент массива больше чем максимальный 
      max := a[i];  // то присваиваем элемент переменной макс
 
  writeln;
  writeln('max = ', max:5:3, ' 20% = ', 0.2 * max:5:3); // вывод на экран
 
  j := 1; // дополнительная переменная для замены
  for i := 1 to n do 
    if max - a[i] <= 0.2 * max then // если разность максимума и элемента(ов) массива меньше либо равно чем умноженный макс на 0.2 то
      begin
        temp := a[i]; // если условие выполняется то результат (новый) записываем вместо старого элемента
        a[i] := a[j]; // и так по всему массиву, если условие НЕ выполняется то значение не изменяется и цикл не выполняется
        a[j] := temp; 
        inc(j); // увеличение на 1 (Аналог j:=j+1)
      end;
 
  for i := 1 to N do
    write(a[i]:6:3);
 
  readln;
end.