задача по масиву Опции

[kyhner]

помогите пожалуйста задание такое (даны 3-табл A(100) b (100) c (100) известно что существуют целые числа встречающиеся во всех 3-х табличах.найти одно такое число. лучше зделать это с помощью процидур и функций.

[volvo]

const
  n = 100;
type
  T = array[1 .. n] of integer;

Function max(A, B: Integer): Integer;
Begin
  { Здесь напишешь функцию, возвращающую максимум из значений A, B }
End;

Procedure Sort(Var ar: T; n: integer);
Begin
  { Любой алгоритм сортировки, на выбор ... }
End;

var
  a, b, c: T;
  i, i_a, i_b, i_c: integer;

begin
  { Здесь - заполнение массивов A, B, C }

  sort(a, n);
  sort(b, n);
  sort(c, n);

  i_a := 1; i_b := 1; i_c := 1;
  while not ((a[i_a] = b[i_b]) and (b[i_b] = c[i_c])) do begin

    if a[i_a] < max(b[i_b], c[i_c]) then
      while a[i_a] < max(b[i_b], c[i_c]) do inc(i_a);

    if b[i_b] < max(a[i_a], c[i_c]) then
      while b[i_b] < max(a[i_a], c[i_c]) do inc(i_b);

    if c[i_c] < max(a[i_a], b[i_b]) then
      while c[i_c] < max(a[i_a], b[i_b]) do inc(i_c);

  end;
  writeln(a[i_a]:4, b[i_b]:4, c[i_c]:4);
end.

Вот и все...