Напечатать наиболее встречающуюся цифру в тексте по коду

program Tekst_1;
 
const
 
Pusto = ' ';
 
Dlina = 10; Predel = 100;
 
Type
 
Slovo = Array [ 1 .. Dlina ] of Char;
 
Tekst = Array [ 1 .. Predel ] of Slovo;
 
Var
 
A : Tekst;  {исходный текст в виде массива слов}
 
Ch : Char; {отдельный символ}
 
R : Slovo; {переменная для промежуточного слова}
 
L, j, k : Integer;  {счетчики}
 
NoSwap : Boolean; {признак перестановки слов }
 
Begin
 
L := 0; { счетчик слов }
 
Writeln('Введите слова через запятую, в конце текста точка');
 
Read ( Ch );    { внешний цикл до конца текста }
 
While Ch <> '.' do
 
Begin
 
L := L + 1;
 
j := 1; { j - счетчик символов в слове }
 
A[ L ] := Pusto;
 
{внутренний цикл по словам}
 
While ( Ch<>',') And ( Ch <> '.') do
 
Begin
 
A[ L,j ] := Ch;
 
j := j + 1;
 
Read( Ch )
 
end;
 
if Ch = ',' then Read( Ch )
 
end;
 
for K := 2 to L do {“пузырьковая сортировка”}
 
Begin
 
NoSwap := True;
 
for j := L downto K do
 
if A[ j-1 ] > A[ j ] then
 
begin
 
R := A[ j-1 ];
 
A[ j-1 ] := A[ j ];
 
A[ j ] := R;
 
NoSwap := False;
 
end;
 
if NoSwap then Break
 
end;
 
Writeln( 'Отсортированные слова без повторений' );
 
R := Pusto;
 
for K := 1 to L do
 
if A[ K ] <> R then
 
begin
 
R := A [ K ];
 
for j := 1 to Dlina do Write ( A[ K, j ] );
 
Writeln
 
end
 
End.

begin
  writeln(ReadlnString('Введите строку:').Where(v -> char.IsDigit(v)).
    Select(v -> '' + v).DefaultIfEmpty('В строке нет цифр').GroupBy(v -> v).
    OrderByDescending(g -> g.Count).FirstOrDefault().Key);
end.

ReadlnString('Введите строку:')

Where(v -> char.IsDigit(v)

Select(v -> '' + v)

GroupBy(v -> v). OrderByDescending(g -> g.Count)

FirstOrDefault().Key

var
  n:array of char:=('0','1','2','3','4','5','6','7','8','9');
  k:array [0..9] of string;
  s:string;
begin
  write('Введите строку: '); readln(s);
  for var i:=0 to n.Length-1 do
    for var j:=1 to s.Length do
      if s[j]=n[i] then k[i]+=s[j];
  var max:=k[1].Length;
  for var i:=0 to 9 do
    if k[i].Length>max then max:=k[i].Length;
  for var i:=0 to 9 do
    if k[i].Length=max then begin
      write(k[i][1]); break;
    end;
end.

var 
  s : string;
  i : integer;
  max, ch : char;
  digits : array['0' .. '9'] of integer;
 
begin
  readln(s); // s := '1010102020203030305555555555555dslkjfg lkdsjfhg  ytiyiyiyit sdlkjfgkj';
  for i := 1 to Length(s) do
    if s[i] in ['0' .. '9'] then Inc(digits[s[i]]);
  max := '0';
  for ch := '1' to '9' do if digits[max] < digits[ch] then max := ch;
  writeln('Наиболее встречающаяся цифра - ', max, ': ', digits[max], ' вхождений');
end.