Файлы и строки!зачетная задача..

[creati8e]

Даны 2 файла. В первый вводятся строки,для каждой строки определить ,на какую букву начинается большинство слов.Результаты сохранить во второй файл! Прошу помочь,у самого уже мысль не идет,как ни пытался!

[creati8e]

Вот есть моя наработка,только выводит неправильное значение.

program ind17FILES;
uses crt;
var a:array[ord('A')..ord('z')] of integer;
i,n:integer; s,s1:string; f,g:file of string;
str,t,h,tmp:string; j,max,b:integer;
begin
  clrscr;
  assign (g,'Gstring.txt');rewrite(g);close(g);
  assign(f,'Fstring.txt');rewrite(f);
   writeln(ВВести кол-во строк');readln(n);
  writeln('ВВести строки');
  for i:=1 to n do
  begin readln(s);write(f,s);
  end;
  close(f);
  reset(f);
  reset(g);
  max:=0;
  for i:=1 to n do
   begin
   read(f,s);
   for j:=1 to length(s) do
   begin
    if not (str[j] in ([' ',',','.','!','?',';',':'])) then
      tmp:=tmp+str[i]
      else begin
       if length(tmp)>1 then
       a[ord(tmp[length(tmp)])]:=a[ord(tmp[length(tmp)])]+1;
       tmp:='';
      end;
    for i:=ord('a') to ORD('z') do
     begin
      if a[i]>max then

      max:=a[i];
      b:=i;t:=char(b);h:=inttostr(max);
      write(g,t,h);
      end;
   end;
   close(f);
  close(g);
 reset(g);
 for i:=1 to n do
 begin
  read(g,h,t);
  writeln(h,' ',t);
  end;
  close(g);
    end;
     end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

Модератор.