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

[bad man]

дан текст хранящийся в текстовом файле, подсчитать кол-во строк содержащих введёное слово
подредьте бред сумасшедшего и если можно прокоментируйте

program Project2;

{$APPTYPE CONSOLE}

uses
 SysUtils;

var f:textfile;
 i,n:integer;
 s,s1:string;
begin
 n:=0;
 readln(s1);
 AssignFile(f,'C:\Users\Àíòîí\Desktop\Íîâûé òåêñòîâûé äîêóìåíò.txt');
 reset(f);
 while not eof(f) do begin
    readln(f,s);
      for I := 1 to length(s) do
      if copy(s,i,length(s1))=s1 then inc(n)
      else ;
                    writeln(s ,#13,#10);
                      end;
closefile(f);
writeln(n);
readln;
end.

From artemavd: а что, трудно было чтоли заключить код тегом #? И хватит создавать темы-клоны! Еще раз увижу - забаню в туже секунду!