Помогите пожалуйста переделать программку. 1.Ввести из клавиатуры слово и распечатать символы, которые встречаются более одного раза(с использованием символьной функции).
Не могу переделать, что использовалась функция.
1.
Code
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.
