[ALexandr555]

во входном файле

число строк которые проверять
сами строки
число строк для проверки
сами строки

а проверяем мы сколько раз нужные строки в начале и в конце бывают
пример
входной файл

4
р4
р4авпр4
параправрапа
р46547456р4
3
па
р4
яа

выходной

Код:

1 2 3

1 3 0

то есть па 1 раз является началом и концом в строках
р4 3 раза является
яа вообще не является началом и концом какой либо строки

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43

program Project2ex;   {$APPTYPE CONSOLE}   uses   SysUtils;   var f,f2:TextFile; a,b,k,i,n,j: integer; m,m2: array of string[50]; mi: array of integer;   begin AssignFile(f,'input.txt');     Reset(f); Readln(f,a); SetLength(m,a+1); for i:=1 to a do readln(f,m[i]); Readln(f,b); SetLength(m2,b+1); SetLength(mi,b+1); for i:=1 to b do readln(f,m2[i]); CloseFile(f); for i:=1 to b do   for k:=1 to a do     begin      n:=length(m2[i]);      if pos(m2[i],m[k])=1 then       begin        j:=length(m[k]);        if  (m2[i]=copy(m[k],j-n+1,j)) then inc(mi[i]);         end;     end; AssignFile(f2,'output.txt'); ReWrite(f2); for i:=1 to b do Writeln(f2,mi[i]); CloseFile(f2);   { TODO -oUser -cConsole Main : Insert code here } end.