[ALexandr555]

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

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

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

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

выходной

Код:

1
3
0

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

Код:

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.