Программирование на Pascal / Delphi / Лабораторная работа1 / LAB_6

program lab_6;
uses crt;
var
   i,dl,j,l,max,lider,sum:integer;
   st,n,k:string[32];
   A,B:array[1..32] of string;
begin
clrscr;
writeln('‚ўҐ¤ЁвҐ бва®Єг ­Ґ Ў®«миго 32 бЁ¬ў®«®ў');
read(st);
for i:=1 to length(st) do A[i]:=st[i];
n:='00';
for i:=1 to length(st)-1 do
   begin
      if (A[i]<>',') then  dl:=dl+1;
      if (dl<3) and (A[i]=',') and (dl<>0) then dl:=dl+1;
      if (i=1) and (A[1]<>',') then n:=A[i];
      if (A[i]=',') and (A[i+1]<>',') and (n='00')  then n:=A[i+1];
      if (dl>7) and (n<>'00') then
         begin
            j:=j+1;
            k:=A[i-1];
            writeln(j,' Ї а - ',n,'___',k);
            B[j]:=n+k;
            n:=A[i];
            dl:=1;
         end;
      if (n<>'00') and (dl>=3) and (dl<=7) and (A[i+1]=',') then
         begin
            j:=j+1;
            k:=A[i];
            writeln(j,' Ї а - ',n,'___',k);
            B[j]:=n+k;
            n:='00';
            dl:=0;
         end
      else
         if (n<>'00') and (i=length(st)-1) and (dl>=3) and (A[i+1]<>',') then
             begin
                j:=j+1;
                k:=A[i+1];
                writeln(j,' Ї а - ',n,'___',k);
                B[j]:=n+k;
             end;
   end;

for i:=1 to j do
   begin
      for l:=1 to j do
         if B[i]=B[l] then sum:=sum+1;
      if sum>max then
         begin
            lider:=i;
            max:=sum;
         end;
      sum:=0;
   end;
write('Ќ ЁЎ®«ҐҐ з бв® ўбваҐз ойЁҐбп Ї ал- ');
if max=1 then write('‚ᥠЇ ал Ї® ®¤­®¬г а §г') else
for i:=1 to j do
   begin
      for l:=1 to j do
         if B[i]=B[l] then sum:=sum+1;
      if sum=max then write(i,',');
      sum:=0;
   end;
readln;
readln;
end.