Ребят, помогите пожалуйста. 2 простых задачки, иначе вместо бубна сапоги получу ...

[Alexunc]

1) Дан текст из десяти строк. Заменить в четных строках все вхождения символа 'a' на 'b', а в
нечетных наоборот. Исходные и измененные строки вывести на экран.
2) Создать программу, реализующую шейкер - сортировку массива и сортировку с помощью
дерева.

[Sazary]

Первая:
Здесь массив из 10 строк. Строки задаются рандомно.

uses crt;
const n=10;
var
s : array[1..10] of string;
i,k,len,t : integer;
ch1,ch2 : char;
begin
clrscr;
randomize;
for i:=1 to n do
 begin
 s[i] := '';
 for k:=1 to 10 do
  s[i] := s[i] + chr(random(25)+97);
 writeln(s[i]);
 end;
writeln('---------');
{---------}
for i:=1 to n do
  begin
  if odd(i) then begin
                 ch1 := 'b';
                 ch2 := 'a';
                 end
   else begin
        ch1 := 'a';
        ch2 := 'b';
        end;

    k := 0;
    t := 1;
    len := length(s[i]);
    while t<=len do
      begin
      k := pos(ch1,copy(s[i],k,len));
      if k = 0 then break
       else
        begin
         delete(s[i],k,1);
         insert(ch2,s[i],k);
        end;
       inc(t);
      end;
  end;
{----------}
for i:=1 to n do
 writeln(s[i]);
readln;
end.

[Alexunc]

Эх, вот спасибо тебе, добрый человек, придется ребятам из военкомата подождать маленько =)

[Alexunc]

Ребята, помогите пожалуйста со второй задачей ...