Помогите с заданием Pascal

[iljuha12]

Тип String

1.Дан текст. Посчитать кол-во знаков #&@%.

2.Дан текст длиной 80 символов. Исправить ошибки набора текста: если встречается комбинация ) или ( то убрать лишние пробелы. Вывести полученную строку.

3. Дана последовательность слов. Текст введен прописными и заглавными буквами. В словах, где вторая буква - символ (а) первую букву поменять на заглавную.
* Вывести слова в сортированном порядке от А до Z

P.S Что сможете помогите)

[newerow1989]

Вставить на форму:

Memo1: TMemo;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;

procedure TForm1.Button1Click(Sender: TObject);
var s,ps:string;
    i,j,k:integer;
    d:boolean;
    slova:array of string;
begin
   s:=Memo1.Text;
   Label1.Caption:=IntToStr(Length(s));
   s:=Copy(Memo1.Text,1,80);
   For i:=Length(s)-1 downto 1 do
   begin
      ps:=Copy(s,i,2);
      If ps=' )' then
         Delete(s,i,1);
      If ps='( ' then
         Delete(s,i+1,1);
   end;
   Label2.Caption:=s;
   s:=Memo1.Text+' ';
   j:=1;
   k:=0;
   For i:=1 to Length(s) do
      If s[i]=' ' then
      begin
         k:=k+1;
         SetLength(slova,k);
         slova[k-1]:=Copy(s,j,i-j+1);
         j:=i+1;
      end;
   For i:=Low(slova) to High(slova) do
      If slova[i][2]='a' then
         slova[i][1]:=UpCase(slova[i][1]);
   Repeat
      d:=true;
      For i:=Low(slova) to High(slova)-1 do
         If slova[i]>slova[i+1] then
         begin
            d:=false;
            ps:=slova[i];
            slova[i]:=slova[i+1];
            slova[i+1]:=ps;
         end;
   Until d;
   Label3.Caption:='';
   For i:=Low(slova) to High(slova) do
      Label3.Caption:=Label3.Caption+slova[i]+#13#10;
end;

Сойдет?