Ввести из клавиатуры слово и распечатать символы, которые встречаются более одного раза.

program Project1;
 
var
  S : String;
  Arr : array[#0..#255] of Integer;
  Ch : Char;
  i, Len : Integer;
begin
  repeat
    Writeln('Задайте строку:');
    Readln(S);
 
    //Обнуляем элементы массива.
    for Ch := #0 to #255 do Arr[Ch] := 0;
 
    //Анализируем строку.
    Len := Length(S);
    for i := 1 to Len do Inc(Arr[S[i]]);
 
    //Формируем строку результата.
    S := '';
    for Ch := #0 to #255 do begin
      if Arr[Ch] > 1 then begin
        if S <> '' then S := S + ', ';
        S := S + Ch;
      end;
    end;
 
    //Ответ.
    if S <> '' then begin
      Writeln('Список символов, которые встречаются в тексте более одного раза:');
      Writeln(S);
    end else begin
      Writeln('Нет ни одного символа, который встречался бы в тексте более одного раза.');
    end;
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.

program Project1;
 
const
  N = 10;
var
  Arr : array[1..N] of Integer;
  i, Cnt : Integer;
  S : String;
begin
  repeat
    //Заполняем массив случайными числами и распечатываем его.
    Writeln('Исходный массив:');
    Randomize;
    for i := 1 to N do begin
      Arr[i] := -5 + Random(11); //-5..+5.
      if i > 1 then Write(', ');
      Write(Arr[i]);
    end;
    Writeln;
 
    //Решение задачи.
    Cnt := 0;
    for i := 1 to N do begin
      if Arr[i] > 0 then Inc(Cnt)
      else Dec(Cnt);
    end;
 
    //Ответ.
    Writeln('Ответ:');
    if Cnt < 0 then
      Writeln('TRUE')
    else
      Writeln('FALSE')
    ;
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.

Program project;
 
type  arr=array[#0..#255] of Integer;
var S : String;
    Ch : Char;
    i, Len : Integer;
    
(=============================)
 
function T (
      for Ch := #0 to #255 do Arr[Ch] := 0;
      Len := Length(S);
      for i := 1 to Len do Inc(Arr[S[i]]);
      S := '';
    for Ch := #0 to #255 do begin
      if Arr[Ch] > 1 then begin
        if S <> '' then S := S + ', ';
        S := S + Ch;
      end;
    end;
    
(=============================)
Begin
 Writeln('Задайте строку:');
    Readln(S);
    
  if S <> '' then begin
      Writeln('Список символов, которые встречаются в тексте более одного раза:');
      Writeln(S);
    end else begin
      Writeln('Нет ни одного символа, который встречался бы в тексте более одного раза.');
    end;
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
    Readkey;
End.

Program Project1;
 
const n=10;
 
type arr=array [1..n] of integer;
var i:integer;
 
(==========================================)
 
     function S(g=arr; Cnt:integer;):string;
          Begin
             Cnt := 0;
             for i := 1 to N do begin
             if Arr[i] > 0 then Inc(Cnt)
             else Dec(Cnt);
              end;
          end;
          Writeln('Ответ:');
    if Cnt < 0 then
      Writeln('TRUE')
    else
      Writeln('FALSE')
(==========================================)
     BEGIN clrscr;
     Writeln('Исходный массив:');
     Randomize;
     for i := 1 to N do begin
      Arr[i] := -5 + Random(11); //-5..+5.
      if i > 1 then Write(', ');
      Write(Arr[i]);
      writeln(S(Arr[i]));
      readkey;
      end;

program Project1;
 
function GetAb(const aStr : String) : String;
var
  S : String;
  Arr : array['a'..'z'] of Integer;
  Ch : Char;
  i, Len : Integer;
begin
  //Обнуляем элементы массива.
  for Ch := 'a' to 'z' do Arr[Ch] := 0;
 
  //Анализируем строку.
  Len := Length(aStr);
  for i := 1 to Len do Inc(Arr[aStr[i]]);
 
  //Формируем строку результата.
  S := '';
  for Ch := 'a' to 'z' do begin
    if Arr[Ch] >= 2 then begin
      if S <> '' then S := S + ', ';
      S := S + Ch;
    end;
  end;
 
  GetAb := S;
end;
 
var
  S : String;
begin
  repeat
    Writeln('Задайте строку:');
    Readln(S);
 
    //Решение задачи.
    S := GetAb(S);
 
    //Ответ.
    if S <> '' then begin
      Writeln('Список букв, которые встречаются в тексте не менее двух раз:');
      Writeln(S);
    end else begin
      Writeln('Нет ни одной буквы, которая встречалась бы в тексте не менее двух раз.');
    end;
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.

program Project1;
 
const
  N = 10;
type
  TArr = array[1..N] of Integer;
 
function Test(const aArr : TArr) : Boolean;
var
  i, Cnt : Integer;
begin
  Cnt := 0;
  for i := 1 to N do begin
    if aArr[i] > 0 then Inc(Cnt)
    else Dec(Cnt);
  end;
 
  if Cnt < 0 then
    Test := True
  else
    Test := False
  ;
end;
 
var
  Arr : TArr;
  i : Integer;
  S : String;
begin
  repeat
    //Заполняем массив случайными числами и распечатываем его.
    Writeln('Исходный массив:');
    Randomize;
    for i := 1 to N do begin
      Arr[i] := -5 + Random(11); //-5..+5.
      if i > 1 then Write(', ');
      Write(Arr[i]);
    end;
    Writeln;
 
    //Решение задачи и ответ.
    Writeln('Ответ:');
    if Test(Arr) then
      Writeln('TRUE')
    else
      Writeln('FALSE')
    ;
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.