Текстовый файл и строка

[Siluet]

Народ. Я на экзамене. У меня задача. Дан текстовый файл и строка. Сколько раз она входит в данный файл как подстрока. Сделайте пожалуйста

[GROWZER]

думаю будет гдето так.....

const n=10;
var f:text;
     counter,i,c,count:integer;
     stroka:string[n];
     ch:char;

Begin
 Assign(f, "001.txt");
 i:=1;
 count:=1;
 c:=0;
 While NOT EOF(f) do
  begin
    reset(f);
    while count < i do read(f, ch);
    inc(c);
    for counter:=1 to n do
     begin
       read(f, ch);
       if (stroka[countre]<>ch) then 
         begin
           dec(c);
           break;
         end;
     end; 
    inc(i);
  end;
 writeln("strok v faile:", c);
 close(f);
End.

[Siluet]

А можешь написать что означает каждая переменная?

[Siluet]

Обьясни что означают переменные, пожалуйста.. Я все еще на экзамене