паскаль задача на латинский алфавит

[Paksten]

Всем привет.
задали такую вот лабу по паскалю , ни как не могу сделать, так как давно на нем не работал, все забыл...
Заполнить два массива размером 20 и 30 элементов случайным образом буквами латинского алфавита. Заполнить третий массив теми буквами, которые входят и в первый и во второй массив, четвертый - оставшимися буквами из первого и второго. Произвести сортировку поученных массивов. ДЛЯ КОНТРОЛЯ результата также сделать распечатку массивов, в том числе исходного.

[Alex_FF]

const
  Len = 30;

type
  TArray = Array[1..Len] of Char;

procedure Sort(var a: TArray; N: Integer);
var
  I, J: Integer;
  tmp: Char;
begin
  for I := 1 to N - 1 do
    for J := I + 1 to N do
      if a[I] > a[J] then
      begin
        tmp := a[I];
        a[I] := a[J];
        a[J] := tmp;
      end;
end;

procedure Print(a: TArray; N: Integer);
var
  I: Integer;
begin
  for I := 1 to N do
    Write(a[I], ' ');
  WriteLn;
end;

var
  a, b, c, d: TArray;
  I, J, N, M: Integer;
  f: Boolean;

begin
  Randomize;
  for I := 1 to 30 do
  begin
    if I <= 20 then a[I] := Chr(Ord('A') + Random(26));
    b[I] := Chr(Ord('A') + Random(26));
  end;
  N := 0;
  M := 0;
  for I := 1 to 20 do
  begin
    f := false;
    for J := 1 to 30 do
      if a[I] = b[J] then
      begin
        Inc(N);
        c[N] := a[I];
        f := True;
        Break;
      end;
      if not f then
      begin
         Inc(M);
         d[M] := a[I];
      end;
  end;
  WriteLn('First array:');
  Print(a, 20);
  WriteLn('Second array:');
  Print(b, 30);
  WriteLn;
  WriteLn('Result:');
  WriteLn;
  Sort(a, 20);
  Sort(b, 30);
  Sort(c, N);
  Sort(d, M);
  WriteLn('First array:');
  Print(a, 20);
  WriteLn('Second array:');
  Print(b, 30);
  WriteLn('Third array:');
  Print(c, N);
  WriteLn('Fourth array:');
  Print(d, M);
  ReadLn;
  ReadLn;
end.

[Alex_FF]

если что-нибудь лишнее в массиве появится, то в Random'e вместо 26 напиши 25.

[Paksten]

Большое Спасибо!!!!