Pascal. Задача с файлами.

[Novi4ok_11]

3. Если у вас в строке больше 255 символов, то считывать через readln не пойдет

Вот и я об этом((( Я понял за пос все, вначале подстрока идет которую нужно найти в строке которая на втором месте стоит

[alex_fcsm]

Алгоритм такой должен быть

var str:string[100];
flag:=false;
n:=0;
 while not(eof(f1)) do
  begin
  read(f,str);
  for i:=1 to 100 do
   begin
     if n=length(str1) then begin
                                    pos:=i-n+1;// позиция с которой начинается найденное слово
                                    n:=0;flag:=false;
                                   end;
      if flag then
              begin
               if str1[n]<>str[i] then 
                                                    begin
                                                     flag:=false;
                                                     n:=0;
                                                    end
                 else inc(n);
              end;
       if str1[1]=str[i] then begin
                                           flag:=true;
                                           n:=2;
                                          end;
    end;
   pred_str:=str;// на всякий случай если вдруг найденное слово будет на стыке 2 прочитанных из файла
  end

str1 - что ищем
str - считанная строка из файла
pred_str - предыдущая считанная строка

[Novi4ok_11]

var str:string[100];
f1:text;
flag:boolean;n,i:integer; str1,str2:string;
begin
str1:='abc';
flag:=false;
n:=1;
Assign(f1,'C:\1.txt');
Reset(f1);
 while not(eof(f1)) do
  begin
  read(f1,str);
  for i:=1 to 100 do
   begin
     if n=length(str1) then begin
                                    pos:=i-n+1;// позиция с которой начинается найденное слово
                                    n:=0;flag:=false;
                                   end;
      if flag then
              begin
               if str1[n]<>str[i] then
                                                    begin
                                                     flag:=false;
                                                     n:=0;
                                                    end
                 else inc(n);
              end;
       if str1[1]=str[i] then begin
                                           flag:=true;
                                           n:=2;
                                          end;
    end;
   pred_str:=str;// на всякий случай если вдруг найденное слово будет на стыке 2 прочитанных из файла
  end

Вот я добавил в Ваш код описание переменных подлючение файл но не компилируется на строке которую я выделил pos ведь pos(s1,s2)

[alex_fcsm]

Во-первых это был кусок кода, который надо было вам переработать для себя, там нет кучи переменных

[Novi4ok_11]

а как я могу его пеработать если я понять не могу для чего переменные те нужны(((( Вы б не могли мне пожалуйста написать как будит правильно(((((( пожалуйста

[alex_fcsm]

Ну напишите свою, идея такая - просматриваем строку, как только находим первую букву, то начинаем искать и остальные

[Novi4ok_11]

у меня 100% не получится((( я не понимаю как это сделать(((

[alex_fcsm]

Представьте как бы вы это вручную сделали, вот так и сделайте в программе. Пробуйте - поможем

[Novi4ok_11]

Ладно спасибо((