Даны три массива слов S11, ... , S115 ; S21, ...

Язык, можно ли использовать процедуры и функции юзера?

И еще, я верно разумею, что S11...S115 на самом деле означает 15 элементов массива S1, имеющих номера от 1 до 15?

Да вы правильно сообразили что там 15 частей извените что так написал, язык программирования Паскаль abc

Const
  n1=15;
  n2=10;
  n3=12;
type
  V=array[1..15] of string;
procedure M_in(s:string; var a:V; n:integer);
ввод данных в массив
var i:integer;
begin
  Writeln('Вводите по одному ',n,' частей массива ',s);
  for i:=1 to n do Readln(a[i])
end; 

procedure M_out(var a:V; n:integer; c:char);
выводит элементы, начинающиеся с обозначенного знака
var i:integer;
begin
  Writeln('*** Слова на буковку ',c,' ***');
  for i:=1 to n do
    if a[i][1]=c then Writeln(a[i]);
  Writeln
end; 

var
  s1,s2,s3:V;
begin
  M_in('S1',s1,n1);
  M_in('S2',s2,n2);
  M_in('S3',s3,n3);
  M_out(s1,n1,'В');
  M_out(s2,n2,'Ц');
  M_out(s3,n3,'А');
end.