Задача на строки!, Помогите написать! Опции

[Lapp]

это не очень помогет мне!

Помоги себе сам - выучи английский!

[samec]

есть и русский help к Borland Pascal 7.0. (в прикреплённом к сообщению файле freeware версия)

[Akella]

блин, как сделать чтобы ответ выводился 1 раз, а не по количеству слов?

program lab_3_16;    
const       limits = [#0..#32,'.',',',':',';','!','?','"'];  
type       TWords = array[1..40] of string;    
var     stroka : string;     
m : byte;     
slova : TWords;     
massiv:array['a'..'z','a'..'z'] of integer;     
c,d,x,y : char;     
i : integer;   
   
function GetWords(s : string; var w : TWords) : byte;  
var     i,back,n : byte;  
begin     i := 1;     n := 0;     
while(i<=length(s)) do begin       
while(i<=length(s)) and (s[i] in limits) do inc(i);         
if i<=length(s) then begin           
back := i;           
while(i<=length(s)) and not(s[i] in limits) do            
inc(i);          
 inc(n);  	 
w[n] := copy(s, back, i-back);         
end;     end;       
GetWords :=n;  
end;  
begin    for c:='a' to 'z' do     
for d:='a' to 'z' do      
massiv[c,d]:=0;  
begin    writeln('vvedite stroku slov');      read(stroka);       
m:=GetWords(stroka,slova);        
for i:=1 to  m do 
begin  	 
Inc(massiv[slova[i][1],slova[i][Length(slova[i])]]);  	  
x:='a';  	   
y:='a';  	    
for c:='a' to 'z' do  	     
for d:='a' to 'z' do if massiv[c,d]>massiv[x,y] then begin  	       
x:=c;  	       
y:=d;  	       
writeln(x,y)  	     
end;        
end;  
end;  
end.

[Akella]

помогите плиз, не могу сдать эту работу...=( сам понять не смогу=(

[Lapp]

program lab_3_16;

const
  limits= [#0..#32,'.',',',':',';','!','?','"'];

type
  TWords= array[1..40] of string;

var
  stroka: string;
  m: byte;
  slova: TWords;
  n: array['a'..'z','a'..'z'] of integer;
  c,d,x,y: char;
  i: integer;

function GetWords(s : string; var w : TWords) : byte;
var
  i,back,n: byte;
begin
  i:=1;
  n:=0;
  while i<=length(s) do begin
    while (i<=length(s)) and (s[i] in limits) do inc(i);
    if i<=length(s) then begin
      back:= i;
      while (i<=length(s)) and not (s[i] in limits) do inc(i);
      inc(n);
      w[n]:= copy(s,back,i-back);
    end;
  end;
  GetWords:= n;
end;

begin
  for c:='a' to 'z' do for d:='a' to 'z' do n[c,d]:=0;
  writeln('vvedite stroku slov');
  read(stroka);
  m:=GetWords(stroka,slova);
  for i:=1 to m do begin
    Inc(n[slova[i][1], slova[i][Length(slova[i])]]);
    x:='a';
    y:='a';
    for c:='a' to 'z' do for d:='a' to 'z' do if n[c,d]>n[x,y] then begin
      x:=c;
      y:=d
    end;
  end;
  WriteLn('Naibolee chastaya para: ',x,y)
end.

[Akella]

и еще одна просьба, подпишите мне, пожалуйста, строчки функции, что в каждой получается, на примере, а то я не сдам эту работу=(