прямой поиск строки, не получаетя немного Опции

[serega204]

доброй ночи !!! попрошу у вас помощи....Я вот сам написал прогу, но не знаю, где поставить счётчик, чтобы считывать количтво строк....Вот задание....Дан текстовый файл. определить сколько раз в заданном файле встречаются заданные строки, используя метод прямого поиска строки...я привёл текст проги и ниже текст в виде песни

Program LR8; Uses Crt;
VAR
   I, J, N, M, k : integer;
         S, P : string;
            t : char;
       Fi, Fr : text;

{----- ОСНОВНАЯ ПРОГРАММА -----}
 Begin CLRSCR;
 Assign (Fi, 'lr8.txt'); Reset (Fi);
 p := ''; i := 0;
 writeln ('Исходные данные:',#10#13);
  while not eof(Fi) do begin
  read (Fi, t); write (t);
                       end;
  Writeln(#10#13, 'Введите строку из песни:'); Readln(P);
  I := -1; k := 0;
  Repeat I := I+1; J := 0;  While (J < M) and (S[I + J] = P[J]) do
         J := J+1;
  Until (j = M) Or (I = N-M);
  Writeln('Количество одинаковых предоложений: ', k);
  Repeat Until KeyPressed
 end.

Я и ты - две планеты две мечты
Только говорим на разных языках
Город твой за невидимой чертой
Мы с тобой живём на разных берегах
Белое вино луны, ночь, аэропорт и мы
В целом мире ни души быть или не быть скажи
И нет проблем у любви другой шенген
Без границ и глупых стен между нами только небо и сны
И нет проблем у любви другой шенген
Без границ и глупых стен между нами только солнце весны
Я и ты снова рейс из пустоты
Не остановить секунды на часах
Мир так мал я не ждал и не искал
А нашёл тебя в далёких городах
Белое вино луны, ночь, аэропорт и мы
В целом мире ни души быть или не быть скажи
И нет проблем у любви другой шенген
Без границ и глупых стен между нами только небо и сны
И нет проблем у любви другой шенген
Без границ и глупых стен между нами только солнце весны

Сообщение отредактировано: Lapp - 8.12.2009 4:17