1)Ввести с клавиатуры строку. Вывести на экран пары рядом стоящих символов, добавляя к ним справа восклицательный знак. {например: «СНЕГУРОЧКА» СН!, ЕГ!, ГУ!, РО!, ЧК!, А!}
2)Ввести с клавиатуры строку. Вывести на экран пары симметричных относительно центра строки символов, обрамляя их знаками больше и меньше. {например: «ДЕЛЬТОПЛАН», <ДН!>, <ЕА>, <ЛЛ>, <ЬП>, <ТО> }

Нужна помощь. Необязательно сами программки, хотя бы ход их выполнения.

№1

program pari;
uses crt;
var a : string;
    i,b: integer;
begin clrscr;
      writeln('vvedite stroku'); readln(a);
      for i:=1 to length(a) do
 begin inc(b);  write(a[i]);
    if b mod 2 = 0 then write('! '); end;
    if odd(length(a)) then write('!');
readkey;clrscr;
end.

№2

program pari;
uses crt;
var a : string;
    i,b,l,k: integer;
begin clrscr;
      writeln('vvedite stroku'); readln(a);
 l:= length(a);
 k:= l div 2;
      for i:=1 to k do
 begin write('<',a[i]); write(a[l],'> '); l:=l-1; end;
 if odd(length(a)) then write('<',a[k+1],'>');
readkey;clrscr;
end.

_LeeRoy_

Спасибо тебе огромное!