Создать блок-схему; Z=Пr2, 2 в показатели степени

var a, b, c, d, i, j :integer;
     s :array [1..100,1..100] of integer;
begin
   b:=63999;
   c:=-63999;
   for i:=1 to 15 do
      begin
      writeln;
      for j:=1 to 15 do
         begin
         s[i,j]:=random(127998)-63999;
         a:=a+s[i,j];
         if s[i,j]>c then c:=s[i,j];
         if s[i,j]<b then b:=s[i,j];
         write (s[i,j],' ');
         end;
      end;
   writeln;
   writeln ('Сумма элементов = ', a);
   writeln ('Максимальный элемент = ', c);
   writeln ('Минимальный элемент = ', b);
end.

1. var s : string или var s : string[30].
2. к массивам символов.
3. 255
4. char
5. Строки можно присваивать друг другу.
    Строки можно объединять с операции конкатенации, которая
    обозначается знаком +.
    Строки можно сравнивать друг с другом с операций отношения.
    К отдельному символу строки можно обращаться как к элементу массива
    символов, например s1[3].
6. Функция Length (s) возвращает фактическую длину строки s, результат имеет 
    тип byte.
    Функция Pos (subs, s) ищет вхождение подстроки subs в строку s и 
    возвращает номер первого символа subs в s или нуль, если subs не 
    содержится в s.
    Функция Concat (s1, s2, ..., sn) возвращает строку, являющуюся слиянием
    строк s1, s2, ..., sn.
    Функция Copy (s, start, len) возвращает подстроку длиной len, начинающуюся     с позиции start строки s.
7. Процедура Delete (s, start, len) удаляет из строки s, начиная с позиции start,
    подстроку длиной len.
    Процедура Insert (subs, s, start) вставляет в строку s подстроку subs, начиная
    с позиции start.
8. как к элементу массива символов, например s1[3].
9. Строки равны, если они имеют одинаковую длину и посимвольно
    эквивалентны. А так как символы "М" и "м" не эквивалентны - строки не равны.