Работа с файлами

[VENOMIK]

Помогите написать программы с помощью которых:
1)сформировать текстовой файл из строк которые должны быть введены с клавиатуры;
2)вывести на экран строки сожержащие слово стол

[Stilet]

Так подойдет?:

MODULE file1;
IMPORT In, Strings, StdLog,
 Views,TextModels,TextMappers,TextViews,TextSetters,TextRulers;
VAR
 v:Views.View;
 scan:TextMappers.Scanner; 
 m:TextModels.Model;
 txt:TextMappers.Formatter;
tm:TextModels.Model;
ts:TextSetters.Setter; 
 tr:TextRulers.Ruler;
s:ARRAY(255) OF CHAR;

PROCEDURE Open;
BEGIN
   tm:=TextModels.dir.New();
   ts:=TextSetters.dir.New();
   ts.ConnectTo(tm,tr,1,FALSE);
   txt.ConnectTo(tm);
END Open;

PROCEDURE wri;
VAR i:INTEGER;
BEGIN
 In.Open;
 WHILE In.Done DO
  In.String(s);
  Strings.Find(s,"ñòîë",0,i);
  IF i#-1 THEN StdLog.String(s); StdLog.Ln; END; 
  txt.WriteString(s);   
  txt.WriteLn;
 END;   
END wri;

PROCEDURE do*;
BEGIN StdLog.Clear;
 Open; wri;
   v:=TextViews.dir.New(tm);
   Views.OpenView(v) 
END do;

END file1.