Частота появления букв в словах

uses
  crt;
procedure SovpBykv(s : string);
var
  first, last, mid : char;
  i, i_first, i_last, i_mid : byte;
begin
  first := s[1];
  last := s[length(s)];
  mid := s[length(s) div 2 + 1];
  i_first := 0; i_last := 0; i_mid := 0;
  if (length(s) < 3) and (first = last) then begin
   writeln('Первая и последние буквы совпадают чаще.');
   exit;
  end 
  else if length(s) > 2 then 
  for i := 1 to length(s) do 
    if s[i]=first then inc(i_first)
    else if s[i]=last then inc(i_last)
    else if s[i]=mid then inc(i_mid);
  if (i_first > i_last) and (i_first > i_mid) then 
   writeln('Первая буква совпадает чаще.')
  else if (i_last > i_mid) then writeln('Последняя буква совпадает чаще.')
  else if (i_mid > i_last) then writeln('Средняя буква совпадает чаще.')
  else writeln('Первая, средняя и последняя буквы совпадают одинаковое кол-во раз.');
end;  
var
  s : string;
begin
  clrscr;
  write('Введите текст : '); readln(s);
  while (pos(' ',s)<>0) do begin 
   writeln('В слове "',copy(s,1,pos(' ',s)-1),'" :');
   SovpBykv(copy(s,1,pos(' ',s)-1));
   delete(s,1,pos(' ',s));
  end;
  writeln('В слове ',s,' :');
  SovpBykv(s);
  readln;
end.

var
  a: array[1..3] of integer;
  na,se,co: array[1..50] of integer;
  stroki, nac,ser,con: array[1..50] of string;
  s: string;
  i,j,k: integer;
 
Function IntToStr(I : Longint) : String;
Var S : String;
Begin
 Str(I, S);
 IntToStr:=S;
End;
 
 
begin
 
  For i:=1 to 50 do 
   begin
     stroki[i]:='';
     co[i]:=0;
     na[i]:=0;
     se[i]:=0;
   end;
 
  for i:=1 to 3 do a[i]:=0;
 
  i:=1;
 writeln('введите строку ');
 readln(s);
 writeln;
 k:=length(s);
 if s[k]<>' ' then s:=s+' ';
 
 Repeat
 
 j:=pos(' ',s);
 
 if j<>0 then 
 begin
  stroki[i]:=copy(s,1,j-1);
  delete(s,1,j);
  inc(i);
 end;
 
 until (length(s)=0)or(pos(' ',s)=0);
  k:=0;
   repeat
    inc(k);
     until stroki[k]='';
      k:=k-1;
 for i:=1 to k do 
 begin
   nac[i]:=stroki[i][1];
   j:=length(stroki[i]);
   con[i]:=stroki[i][j];
   j:=(j)div(2)+1;
   ser[i]:=stroki[i][j];
 end;
 for i:=1 to k do 
 begin
  for j:=1 to k do 
   begin
    if (nac[i]=nac[j])and(i<>j) then na[i]:=na[i]+1;
    if (con[i]=con[j])and(i<>j) then co[i]:=co[i]+1;
    if (ser[i]=ser[j])and(i<>j) then se[i]:=se[i]+1;
  end;
 end;
  for i:=1 to 3 do a[i]:=0;
   for i:=1 to k do 
    begin
     if na[i]> a[1] then a[1]:=na[i];
     if se[i]> a[2] then a[2]:=se[i];
     if co[i]> a[3] then a[3]:=co[i];
    end;
  for i:=1 to k do
  inttostr(na[i]);
  for i:=1 to k do
  inttostr(se[i]);
  for i:=1 to k do
  inttostr(co[i]);
  write('Начальные буквы: ');
  for i:=1 to k do
  write(nac[i],'  ');
  writeln;
  write('средние буквы: ');
  for i:=1 to k do
  write(ser[i],'  ');
  writeln;
  write('Конечные буквы: ');
for i:=1 to k do
write(con[i],'  ');
writeln;
writeln;
if (a[1]=a[2]) and (a[2]=a[3]) then writeln('Буквы встречаются одинаково');
if (a[1]>a[2]) and (a[1]>a[3]) then writeln('Буквы в начале строки встречаются чаще');
if (a[1]=a[2]) and (a[1]>a[3]) then writeln('Буквы в начале строки и середине встречаются одинаково часто');
if (a[1]=a[3]) and (a[1]>a[2]) then writeln('Буквы в начале и в конце встречаются чаще');
if (a[2]>a[1]) and (a[2]>a[3]) then writeln('В середине чаще');
if (a[2]=a[3]) and (a[2]>a[3]) then writeln('В середине и конце чаще');
if (a[3]>a[1]) and (a[3]>a[2]) then writeln('В конце чаще');
 
end.