Рабрта с файлами в паскале

[lebrosha]

В входном фале находится инормация о людях в следующем виде: фамилия, имя, дата рождения, № паспорта. Построить бинарное дерево поиска, в качестве ключа использовать № паспорта.

Не знаю как добавлять данные через файлы.
Помогите!!!

[NoHeart]

Если ты умеешь строить бинарное дерево, то брать данные из файла ты должен уметь...

[lebrosha]

ну вот я могу целыми строками читать и помещать в какое нибуд поле записи.
а как сделать чтобы как только новое слово начиналось, данные бы записывались в другое поле.
вобщем проблема в этом)

[Dirt]

Привет, ну у тебя же они разделяються ",", воспользуйся фун. pos и copy

[lebrosha]

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

[Dirt]

ну например если у вас так:

Пупкин, василий, 1986-556-7, 234567 67

while not EOF(f) do
 begin
  readln(f,s);
  ends:=pos(',',s);
  fam:=copy(s,1,ends-1);
  delete(s,1,ends+1);
  ends:=pos(s,',');
  name:=copy(s,1,ends-1);
  delete(s,1,ends+1);
  ends:=pos(s,',');
  data:=copy(s,1,ends-1);
  delete(s,1,ends+1);
  pasport:=s;
 end;

[lebrosha]

спасибо большое