Текствоый файл, Работа с файлами Опции

[Needhelp]

Ну вот и мне help нужна...
Задание такое...
Задан текстовый файл и последовательность символов. Написать программу, которая определяет существует ли в этом файле заданная последовательность.
В поиске смотрел...да нифига не нашел...может кто чего?

[Angellore]

Те случаи, когда ищется
Последовательность:

'333'

Файл:

'4443344
3331211'

з.ы close(f) забыл

uses crt;
var   f:text;
       s,s1:string;
       subSTR:boolean;
begin
clrscr;
subSTR:=false;
assign(f,'c:/text.txt');
s:='4124';
reset(f);
while not eof(f) do begin
readln(f,s1);
if pos(s,s1)<>0 then subSTR:=true;
end;
writeln(subSTR);
readkey;
close(f);
end.

Сообщение отредактировано: Angellore - 17.04.2007 20:11