строковый тип переменных

[ARB]

Помоги те пожалуйста, решите сколько сможете.
Задачи на строки.

1. Определите номер позиции, в которой в пятый раз встречается буква М в данной символьной строке. Если такой позиции нет, то сообщите количество букв М в строке.
2. Вырежьте два первых символа символьной строки и поместите их в конец данной строки.
3. Дана символьная строка «Семенов Виктор Николаевич».Напечатайте ее в виде «В.Н. Семенов».
4. Подсчитать, сколько раз в данной строке встречается буква С, вводимая с клавиатуры.
5. Из строки удалить среднюю букву, если длина строки нечетная, иначе - удалить две средние буквы
6. Даны две строки. Если они начинаются с одинаковых символов, то напечатать "ДА", иначе - "НЕТ"

Парни, хоть что сможете решите, решается судьба человека, буду очень признателен...

[Rusl92]

1.

var s:string;
    k:integer;
begin
   read(s);
   k:=0;
   pos:=0;
   for i:=1 to length(s) do
    if s[i]='M'
      then
       begin
        inc(k);
        if k=5 then begin pos:=i; break end
       end;
    if pos=0 then write('Количество букв M в строке = ',k)
             else write('Позиция пятой буквы M = ',pos);
    readln
end.

остальное в асе 395359808
удачи