Надо расшифровать слово колмес но не находить его значения ну надо завтра информатика а у меня не выполнено

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.  строки равны, если они имеют одинаковую длину и посимвольно       эквивалентны. а так как символы "м" и "м" не эквивалентны -  строки не равны.

1) var a, b, c, i, n, j : integer;       s : string; begin     read (s);     for i: =1 to length(s) do     begin       if (ord (s[i])> =97) and (ord (s[i])< =122) then write (char(ord (s[i])-32))       else write (s[i]);     end; end.2)var a, b, c, i, n, j : integer;       s : string;       p : array[1..10000] of integer; begin    read (s);     if s[1]=' ' then    begin      j: =j+1;       p[j]: =1;     end;     for i: =2 to length(s) do      if (s[i]=' ') and (s[i-1]< > ' ') then          begin              j: =j+1;             p[j]: =i;           end;     for i: =1 to j do    begin      a: =p[i];       p[i]: =0;       while s[a]=' ' do      begin          inc (p[i]);           a: =a+1;       end;     end;     b: =p[1];     for i: =1 to j do      if p[i]> b then b: =p[i];     write (b); end.3)var a, b, c, i, n, j : integer;       s : string;       p : array[1..10000] of integer; begin    read (s);     i: =1;     write (s[i]);     while s[i]< > ': ' do      begin      inc (i);       write (s[i]);       end; end.4)var a, b, c, i, n, j : integer;       s : string;       p : array[1..10000] of integer; begin    read (s);     i: =1;     while s[i]< > ': ' do      inc (i);     i: =i+1;     while (s[i]< > ': ') and (i< =length(s)) do      begin      write (s[i]);       inc (i);       end; end.