программа чтения из файла. Нужна небольшая помощь.

[George Orwell]

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

var
f: file of char;
c: char;

begin
assign (f, 'c:\file.txt');
reset (f);

while not eof (f) do begin
read (f, c);
writeln (c);
end;

close (f);

readln
end.

[ZX Spectrum-128]

Из файла у вас вводятся последовательно символы. С чем вы собираетесь сравнивать введенное с клавиатуры слово?
Поясните задачу. И укажите содержимое файла.

[George Orwell]

Сообщение от ZX Spectrum-128

Из файла у вас вводятся последовательно символы. С чем вы собираетесь сравнивать введенное с клавиатуры слово?
Поясните задачу. И укажите содержимое файла.

сравнивать нужно с тем, что будет в текстовом файле. то есть слова.

[ZX Spectrum-128]

Readln(sq);
Assign(f,'file.txt');
Reset(f);
While not eof(f) do
  Begin
    Readln(f,st);
    If pos(sq,st)<>0 then
       WriteLn('есть')
    Else 
        Writeln('нет');
   End;
...
Close(f);

Это только набросок.
Например при вводе слова 'мушка' будет найдена и 'погремушка'

[George Orwell]

Сообщение от ZX Spectrum-128

Readln(sq);
Assign(f,'file.txt');
Reset(f);
While not eof(f) do
  Begin
    Readln(f,st);
    If pos(sq,st)<>0 then
       WriteLn('есть')
    Else 
        Writeln('нет');
   End;
...
Close(f);

Это только набросок.
Например при вводе слова 'мушка' будет найдена и 'погремушка'

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

program n;
uses crt;
var
f:file of string;
st:string;
sq:string;

begin
assign (f,'d:\file.txt');
reset(f);
while not eof (f) do
begin
readln(f);
if pos(sq,st)<>0 then
writeln('est')
else
writeln('net');
end;
close(f);
end.

[ZX Spectrum-128]

чего-то как-будто не хватает, чтобы программа заработала

Сначала мой кусок программы правильно скопируйте.

[George Orwell]

Сообщение от ZX Spectrum-128

Сначала мой кусок программы правильно скопируйте.

я и скопировал, но пришлось немного переделать

[ZX Spectrum-128]

Переделали?
А можно спросить, что делает эта строка?
Readln(f);
И чему равны sq,st?

[George Orwell]

Сообщение от ZX Spectrum-128

Переделали?
А можно спросить, что делает эта строка?
Readln(f);
И чему равны sq,st?

c вообще не нужно, поэтому и убрал.

[ZX Spectrum-128]

В вашем коде вообще нет переменной с. Так что делает readln(f); ?
И чему все-таки равны sq и st?