2. Дан текстовый файл. Найти строку в текстовом файле (вывести на экран), в которой данный символ встречается максимальное количество раз. На паскале! ​

Прости уж , но я смогу только на си. Язык с++ не отличается особо от си , просто поменяй например printf На cout << и в таком духе.
#include <stdio.h>#include <stdlib.h>#include <conio.h>#include <locale.h>

int main(){    setlocale(LC_ALL,"rus");    int w,r,g,y,b,i;    int rat,bull,tiger,rabbit,dragon,snake,horse,goat,monkey,cock,dog,pig;    int start=1984,end=start+60;    printf("Начало цикла =%d\nКонец цикла =%d\n",start,end);    if (start<=end)    {        w=start+12;        printf("Год =%d -белый год\n",w);        g=w+12;        printf("Год =%d -зеленый год\n",g);        r=g+12;        printf("Год =%d -красный год\n",r);        b=r+12;        printf("Год =%d -черный год\n",b);        y=b+12;        printf("Год =%d -желтый год\n",y);    }    else    {    }    printf("Это конец каждого 12 летнего цикла\n");    printf("                                  \n");    printf("Выберите год который вам нужен! 1-белый,2-зеленый,2-красный,4-черный,5-желтый,0-для выхода\n",i);    scanf("%d",&i);    if (i==1)    {        printf("1984=крыса\n1985=бык\n1986=тигр\n1987=кролик\n1988=Дракон\n1989=змея\n1990=Лошадь\n1991=козел\n1992=обезьяна\n1993=петух\n1994=собака\n1995=свинья\n");    }    else    {        if (i==2)        {            printf("1996=крыса\n1997=бык\n1998=тигр\n1999=кролик\n2000=Дракон\n2001=змея\n2002=Лошадь\n2003=козел\n2004=обезьяна\n2005=петух\n2006=собака\n2007=свинья\n");        }
        else        {
            if(i==3)            {                 printf("2008=крыса\n2009=бык\n2010=тигр\n2011=кролик\n2012=Дракон\n2013=змея\n2014=Лошадь\n2015=козел\n2016=обезьяна\n2017=петух\n2018=собака\n2019=свинья\n");            }            else        {
                if (i==4)                {                     printf("2020=крыса\n2021=бык\n2022=тигр\n2023=кролик\n2024=Дракон\n2025=змея\n2026=Лошадь\n2027=козел\n2028=обезьяна\n2029=петух\n2030=собака\n2031=свинья\n");                }
                else                {                    if (i==5)                    {                         printf("2033=крыса\n2034=бык\n2035=тигр\n2036=кролик\n2037=Дракон\n2038=змея\n2039=Лошадь\n2040=козел\n2041=обезьяна\n2042=петух\n2043=собака\n2044=свинья\n");                    }                    else                    {                        if (i==0)                        {                            EXIT_FAILURE;                        }                        else                         {                             printf("Выбирайте из предоставленных цифр!Попробуйте перезапустить программу");                         }                    }                    }                }            }        }
    getch();    return 0;}

//PascalABC.NET
//Версия 3.3. сборка 1583 (25.11.2017)

begin
  var a:=ArrRandom(ReadInteger('Введите размер массива: '),-20,20); a.Println;
  var s:=1;
  var max:=0;
  for var i:=0 to a.Length-2 do
   begin
    if a[i]<a[i+1]
      then s+=1
      else 
        if s>max
          then max:=s
          else s:=1;
   end;
  Println('Максимальная длина неубывающего участка-> ',max);
  s:=0;
  max:=0;
  var maxi:=0;
  for var i:=0 to a.Length-1 do
   begin
     for var j:=0 to a.Length-1 do
       if a[i]=a[j] then s+=1;
     if s>max then begin max:=s; maxi:=i; end;
     s:=0;
   end;
  If max=1 then Println('Числа повторяются одинаково')
  else Println('Наиболее повторяющееся число->',a[maxi]);
end.

Немного короче, но сложнее в восприятии будет, я думаю

Пример: