Текстовые файлы в Паскаль

[Юлька)]

Ребят, чесно пробовала читать литературу, все равно не получается. Помогите пожалуйста.

1. Дан символьный файл f. Определить количество слов в файле(которых не больше 20).

2. Дан файл f, содержащий сведения об игрушках: указывается название игрушки, ее стоимость и возрастные границы детей, для которых игрушка предназначена. Получить названия игрушек, цена которых не превышвет 4 рубля и которые подходят детям пяти лет.

[ByAlex]

Сообщение от Юлька)

Ребят, чесно пробовала читать литературу, все равно не получается. Помогите пожалуйста.

1. Дан символьный файл f. Определить количество слов в файле(которых не больше 20).

2. Дан файл f, содержащий сведения об игрушках: указывается название игрушки, ее стоимость и возрастные границы детей, для которых игрушка предназначена. Получить названия игрушек, цена которых не превышвет 4 рубля и которые подходят детям пяти лет.

Привет! Как это понять - "Определить количество слов в файле(которых не больше 20)"? Может длина слова не больше 20-ти?

[Юлька)]

Привет! Слова в смысле некоторе количество букв разделенные между собой пробелами. Всего слов не больше 20)

[ByAlex]

Сообщение от Юлька)

Привет! Слова в смысле некоторе количество букв разделенные между собой пробелами. Всего слов не больше 20)

Понятно!
Ну вот что то для латиницы! Файл у меня находится на C:\temp\f.123

var
  f:file of Char;
  Col:integer;
  c:Char;
  Str,Text:string;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  Col:=0;
  Str:='';
  Text:='';
  AssignFile(f,'c:\temp\f.123');
  Reset(f);
  while not Eof(f) do
  begin
    read(f,c);
    Text:=text+c;
    if c in ['a'..'z'] then
      Str:=Str+c
    else
    begin
      if (Str<>'') or (Str<>' ') then
        inc(Col);
      Str:='';
    end;
  end;
  Writeln('Text is - ',text);
  write('Kolichestvo slov = ',Col);
  CloseFile(f);
  readln;

[Юлька)]

Спасибо большое! А можешь вторую? Я наглая, да?)

[ByAlex]

Сообщение от Юлька)

Спасибо большое! А можешь вторую? Я наглая, да?)

Вторая -

uses
  crt;

type
  TToys = Record
  ToysName:string[25];
  ToysCash,LimitAge:Integer;
end;

var
  F:File of TToys;
  Toys:TToys;
procedure InputRecord;
var
  S:string;
begin
  S:='y';
  while S<>'n' do
  begin
    write(#13#10'Input the name of toy - ');
    Readln(Toys.ToysName);
    write('Input the cash of toy - ');
    Readln(Toys.ToysCash);
    write('Input the limit age for toy - ');
    Readln(Toys.LimitAge);
    write('Repeat input (y/n)? - ');
    write(f,Toys);
    inc(i);
    readln(S);
  end;
  writeln;
end;
begin
  Assign(F,'c:\temp\MyFile.123');
  {$I-}
  reset(F);
  {$I+}
  if ioresult=0 then
  begin
       if FileSize(F) = 0 then
       begin
            write('The number of records in file  = 0'#13#10'Need to add records!!!'#13#10);
            InputRecord;
       end;
  end
  else
  begin
    Rewrite(F);
    InputRecord;
  end;
  writeln('Number of records = ', FileSize(F),#13#10'Result is :');
  Seek(F,0);
  while not Eof(F) do
  begin
    read(f,Toys);
    if (Toys.ToysCash<=4) and (Toys.LimitAge=5) then
      writeln(Toys.ToysName);
  end;
  Close(F);
  Readln;
end.

[Юлька)]

Спасибо огромное!