Поиск номера телефона в текстовом файле

[biowoooooolf]

Всем доброго времени суток
Помогите пожалуйста разобраться или хотя бы подскажите каких операторов нужно использовать?
Программа поиска номера телефона:

program Project3;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
	f:text;
  i:byte;
  m,x,k:integer;
	b,s,ss,s1:string;
  poisk:boolean;
begin
	assign (f,'D:\f.txt');
Reset  (f);
readln(k);
poisk:=false;
    b:='-' ;
    s1:=inttostr(k);
    while not eof(f) do
    Begin
     readln(f,s);
     m:=pos (b,s);
     x:=length(s);
     ss:=copy(s,m+1,x-m);
     if (pos(s1,s)>0) then
     begin writeln (s); poisk:=true end;
    End;
    if poisk=false then writeln ('Nomer ne naiden') ;
    Readln;
  Close (f);
End.

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

uses
SysUtils;

Var
F:text;
i:byte;
k:integer;
j:string;

begin
assign
(f,'D:\f.txt');
Rewrite (f);
For i:=1 to 3 do
Begin
Writeln ('neam');
Readln(j);
Writeln('# tel');
Readln (k);
writeln (f,j,'-',k);
End;
Close (f);
End.

На случай если там все совеем плохо вот текст задания (Записать в файл информацию о знакомых, имеющих телефоны. Определить, есть ли в файле сведения о знакомом, имеющем телефон NNNNN.)
Заранее спасибо.



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Vanta11a]

Считываешь номер в строковую переменную.
Копируешь строку с позиции первого числа номера по последние и смотришь, совпадает ли она с веденной строкой.
Если совпадает - выводишь.

[Летучий_СкилетиК]

...
while not eof(f) do
Begin
     readln(f,s);
     for i:=1 to length(s) do
         if s [i] = '-' then break;

if (k = StrToInt(Copy(s,i+1,k))) then
begin writeln (s); poisk:=true end;
End;
...

[Serge_Bliznykov]

1) у Вас ошибка в коде. Почему Вы позицию ищете в строке S
когда только получили подстроку SS ?!

2) для полного совпадаения замените код

        ss:=copy(s,m+1,x-m);
  if (pos(s1,s)>0) then
     begin writeln (s); poisk:=true end;

на такой код:

     ss:=copy(s,m+1,x-m+1);
    if s1=ss then
     begin writeln (s); poisk:=true end;

3) я не знаю, удивлю ли Вас, но написанная у Вас программа не на языке Pascal, а на языке Delphi (это так переименован бывший ObjectPascal)...

4) в данном решении есть ещё косяки. Попробуй ввести телефончик для "Петрова-Водкина" или для "Бонч-Бруевича"

[biowoooooolf]

Извиняюсь за не правильное оформление в следующий раз не повториться
Serge_Bliznykov спасибо за помощь!!! Не сочти за наглость если не трудно объясни пожалуйста что делают эти операторы

poisk:=false;
    b:='-' ;
    s1:=inttostr(k);
    while not eof(f) do
    Begin
     readln(f,s);
     m:=pos (b,s);
     x:=length(s);
      ss:=copy(s,m+1,x-m+1);
    if s1=ss then

[Vanta11a]

poisk:=false; //сбрасывается переменная найденного номера, т.е. номер не найден
    b:='-' ; //устанавливается тип разделителя
    s1:=inttostr(k); //перевод s1 в строку
    while not eof(f) do //пока не конец файла
    Begin
     readln(f,s); //считать строку из файла
     m:=pos (b,s); //получить позицию разделителя
     x:=length(s); //получить длину строки
      ss:=copy(s,m+1,x-m+1); //скопировать строку с позиции разделителя до конца
    if s1=ss then //если строка и введенный номер совпали, то...