Чтение файла (паскаль).

[edmynt]

Составить программу, которая выводит все строки файла, содержащие в качастве фрагмента подстроку S ,введенную с клавиатуры.

Я составил программу:

program laba9;
uses crt;
var
f:file of string;
s:string;
str:string;
i:integer;
begin
clrscr;
writeln ('Введите Строку');
writeln;
read(s);
writeln(s);
assign (f,'C:\byrgan\9\lab.txt');
reset (f);
while not eof(f) do
begin
read(f,str);
i:=pos (s,str);
writeln(i);
readkey;

if i<>0 then
begin
writeln (str);
end
else
begin
writeln('Ничего не найдено');
end;
end;
close (f);
repeat until keypressed;
end.

Вначале все работало,но криво,всегда выводило первую строку из файла,патом чтото глюкнуло,и при пошаговой проверке в строке read(f,str); Вылазиет ошибка № 100 Disk Read Error.
Помогите решить плиззз.

[Манжосов Денис :)]

Вот так попробуй:

ReadLn(s);
while not EoF(f) do
begin
  ReadLn(str);
  WriteLn(Input, str);
end;

[edmynt]

Error 105 file not open for output