помогите please с паскалем!!!

[tomat91]

Нужно составить программу которая проверяет наличие в тексте подстроки, введённой пользователем.

[alex_fcsm]

Если текст в файле

readln(x);
flag:=false;
assign(f,'c:\1.txt');
reset(f);
 while not(eof(f)) do
  begin
   readln(f,s);
   if pos(x,s)<>0 then flag:=true;
  end;
 close(f);
if flag then writeln('Yes');

[tomat91]

а если текст вводить самому ?

[alex_fcsm]

Так в чем хранится текст? В строке, массиве....
Читайте справку про pos

[tomat91]

Мне нужно создать текст в массиве и проверить наличие в нём подстроки, введённой пользователем.

[alex_fcsm]

Делаете массив строк и для каждой строки

flag:=false;
for i:=1 to n do
if pos(x,mas[i])<>0 then begin
                                  flag:=true;
                                  exit; 
                                 end;

[tomat91]

Спасибо !