Опишите универсальную функцию MaxNum(A, N) целого типа, находящую номер
максимального элемента вещественного массива А размером N. Поместите функцию в
модуль. Разработайте тестирующую программу, где с этой функции находятся
номера максимальных элементов массивов A, B, C размера NA, NB, NC соответственно.
Массивы можно задать, используя генератор случайной величины.

1)
var
    s: string[6];
    n: integer;

begin
    s := 'отлично';
    n := length(s);
    writeln(length('отлично'));
    writeln(n);
end.

Изначально выставлен тип string[6], значит если присвоить строку больше, то ее обрежет по 6 символов, вот и весь прикол
ответ 6

2) рисунок

3)var
    s, s1: string;
    n: integer;

begin
    s := 'информатика';
    s1 := copy(s, 3, 5);
    n := pos(s, s1);
    writeln('s=', s);
    writeln('s1=', s1);
    writeln('n=', n);
end.

Вывод
s=информатика
s1=форма
n=0

Все верно, в s1 не содержится s, а наоборот

// PascalABC.NET 3.2, сборка 1363 от 17.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var N:=ArrRandom(50,-111,348); N.Println;
  Writeln('Произведение элементов, кратных 5, равно ',
    N.Where(x->x mod 5=0).Aggregate(BigInteger(1),(a,b)->a*b));
  if N.Where(x->x.IsOdd).Count>N.Where(x->x.IsEven).Count then
    Writeln('Нечетных элементов больше')
  else Writeln('Четных элементов больше')
end.

Пример
151 129 60 55 140 -61 180 221 -7 1 -6 118 80 215 -109 176 82 265 209 234 36 276 71 147 268 138 288 300 37 270 290 79 -88 183 197 -13 23 222 -106 137 76 180 240 287 -55 -7 48 111 222 -82
Произведение элементов, кратных 5, равно -21155254513747200000000000000
Четных элементов больше