Суть задачи:
Составим 2 программы:
Программа А. Сформировать текстовый файл из строк введённых с клавиатуры.
Программа Б. Вывести на экран строки содержащие слово stop.
Значит я сделал так:
Программа А
rogram COD4forever;
var f:text;
b:char;
x:string[80];
Begin
assign(f, 'test.txt');
Rewrite(f);
x:='a';
b:='!';
writeln('Vvod strok');
while x<>b do
begin
readln(x);
if x<>b then writeln(f,x);
end;
close(f);
end.
Программа Б
Код
Program COD4super;
uses crt;
var f:text;
b:char;
c:integer;
x:string[80];
begin
clrscr;
Assign(f, 'test.txt');
reset(f);
While not EOF(f) do
begin
readln(f,x);
end;
While not EOF(f) do
If pos('stop',x)<>0 then
writeln(x);
close(f);
readln;
end.
uses crt;
var f:text;
b:char;
c:integer;
x:string[80];
begin
clrscr;
Assign(f, 'test.txt');
reset(f);
While not EOF(f) do
begin
readln(f,x);
end;
While not EOF(f) do
If pos('stop',x)<>0 then
writeln(x);
close(f);
readln;
end.
Но у меня программа Б почему то не выводит строки содержащие слово стоп, а совсем ничего не выводит. Помоги пожалуйста!
Заранее спасибо
