текстовые файлы в паскале.

Question

Нужно найти в текстовом файле строку. 
Ниже изложенные программы при вводе любых символов говорят что найдено в такой то строке. В зависимости от количества строк число меняеться но всегда последняя строка. 
 
{ Hайти строку } 
var t:text; s,s1:string; 
 count:word; 
begin 
 readln(s); { Вводим строку для поиска } 
 assign(t,'text.txt');reset(t); 
 s1:=''; count:=0; 
 while not eof(t) and (s<>s1) do begin 
 readln(t,s1); inc(count); 
 end; 
 writeln('искомая строка является ',count,' строкой в файле'); 
 close(t); 
end. 
 
ИЛИ 
 
{ Hайти подстроку (слово) } 
var 
 t:text; 
 s,s1:string; 
 count:word; 
begin 
 readln(s); {вводим подстроку} 
 assign(t,'text.txt'); reset(t); 
 s1:=''; count:=0; 
 while not eof(t) and (pos(s,s1)=0) do begin 
 readln(t,s1); 
 inc(count); 
 end; 
 writeln('буквосочетание "',s,'" найдено в строке N ',count,':'); 
 writeln(s1); 
 close(t); 
end. 
 
Пример работы 
 
буквосочетание "ndzfnhzadh" найдено в строке N 3: 
"pc 5-06" 
 
Как написать РАБОТАЮЩУЮ прогу. Помогите плиз очень надо. И быть может это от того что паскаль абс. нет?

П. С. Если строка не найдена то вывести сообщение что она не найдена

Наталья Выборнова · Accepted Answer

Все работает твое: 
{ Hайти подстроку (слово) } 
var 
 t: text; 
 s, s1: string; 
 count: word; 
 
begin 
 readln(s); {вводим подстроку} 
 assign(t, 'text.txt'); reset(t); 
 s1 := ''; count := 0; 
 while not eof(t) and (pos(s, s1) = 0) do 
 begin 
 readln(t, s1); 
 inc(count); 
 end; 
 writeln('буквосочетание "', s, '" найдено в строке N ', count, ':'); 
 writeln(s1); 
 close(t); 
end.

Может ты файл не в анси формате делаешь? 
Проверял на PascalABC.NET