Пожалуйста помогите решитьзадачу не могу никак а надо через неделю сдавать:

Дана непустая последовательность слов из строчных латинских букв;слова разделяются запятыми,за послденим - точка.Среди всех пар a[i] и b[i] ? где a[i]-первая а b[i]- последняя буква i-го слова последовательности, определить наиболее часто встречающуюся пару

Вот то что сделал но че то никак не работает!

Program ggas;
uses CRT;
 var
   S,S1,a,b:string;
   i,j,MaxK,NmaxK:byte;
   dlinna,dlinna2:integer;
   k: array[1..20] of integer;
begin
   clrscr;
   S:=('abc,wavtobusa,adtokwc,ffs.');
   writeln (S);
   dlinna:=length(s);
   a:=S[1];
    for i:=2 to dlinna do
     begin
      If (S[i]=',') or (S[i]='.') then
      begin
        a:=a+S[i+1];
        b:=b+S[i-1];
       end;
     end;
   dlinna2:=length(a);
     for i:=1 to dlinna2 do
     for j:=i+1 to dlinna2 do
      begin
       if (a[i]=a[j]) and (b[i]=b[j]) then
       k[i]:=k[i]+1;
      end;
MaxK:=k[1];
  NmaxK:=1;
  for i:=2 to dlinna2 do
   if k[i]>MaxK then
   begin
    MaxK:=k[i];
    NmaxK:=i;
   end;
   writeln('Naibolee chasto povtoriaiushiisia para: ',a[NmaxK],b[NmaxK]);
end.

Не факт конечно, что код самый короткий и оптимизированный, но работает 

85=255/3 (максимальное кол-во пар)

Это сообщение отредактировал(а) mmvds - 21.1.2008, 09:47

Да работает хорошо!!! Спасибо!  

Dark89, на будущее: пользуйся кнопкой код.