Задача по файлам Опции

[CyberDemon]

Помогите написать прогу:
Дан символьный файл(тип CHAR). Определить, входит ли в файл сочетание "abcdefgh".

[Michail]

Прсто считывай из файла посимвольно с помощью read и проверяй каждый символ. Если произошло совпадение с первым(искомая строка), то начинай сравнивать со вторым(в ней же), а далее если совпадения кончились, то сравнивай снова с первым.

[Sam0784]

держи

program forum;
var
i:integer;
f:file of char;
s:char;
ss:string;
begin
ss:='abcdefgh';
assign(f,'c:\temp\1.chr');
reset(f);
i:=1;
while not eof(f) do
 begin
  read(f,s);
  if s=ss[i] then inc(i)
   else i:=1;
  if i=9 then break;
end;
if i=9 then write('vhodit')
 else write('nevhodit');
readln;
end.

[Bokul]

if i=9 then break;

лучше поменять на

if i=length(ss) then break;

и кто будет файл закрывать?

[volvo]

лучше поменять на

if i > length(ss) then break;

все-таки...