аписать подпрограмму, которая считает количество слов в строке и

[AVIM]

Здравствуйте, помогите пожалуйста, написать программу на
Lazarus.
Дано: в текстовом файле fin.txt
находится текст на русском языке.
С клавиатуры вводится число k
Требуется: написать
подпрограмму, которая считает
количество слов в строке и,
используя эту подпрограмму,
сформировать текстовый файл
font.txt, в k-ой строке которого
записанно число, полученное
описанной выше функцией в k-ой
строке файла fin.txt.
P.S. заранее благодарю за помощь=)

[Stilet]

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;

type

  { TForm1 }

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
var st:TstringList; i:integer;

 function cnt(s:string):integer;
 begin
  st.Delimiter:=' '; st.DelimitedText:=s; Result:=IntToStr(st.Count);
 end;

begin
 st:=TStringList.Create;
 With TStringList.Create do begin
   LoadFromFile('fin.txt');
   for i:=0 to Count-1 do Strings[i]:=cnt(Strings[i]);
   SaveToFile('font.txt');
   Free;
 end;
 st.Free;
end;

end.

Только тебе это не поможет... Особо не надейся.

[AVIM]

Это в каком смысле?

[Аватар]

В смысле как не умел решать такие задачки, так ни когда и не научишься.

Кросспост

http://programmersforum.ru/showthrea...19#post1558419