№5
var
  st1, st2: string;
  T: integer;
begin
  write('Строка, в которой будет произведен поиск: ');
  readln(st1);
  write('Что искать: ');
  readln(st2);
  T := pos(st2, st1);
  writeln('"', st2, '" находится на позиции ', T);
end.

№6
var
  st: string;
  K, i: integer;

begin
  write('Строка: ');
  readln(st);
  K := 0;
  for i := 1 to length(st) do
  begin
    if st[i] = ',' then
      K := K + 1;
  end;
  writeln('Кол-во запятых: ', K);
end.