{ Procedure PlayArray plays melody from constant array.
  MAX is the size of the array.}

procedure PlayArray;
var
  i : integer;
begin
  for i := 1 to MAX do
  begin
    sound(melody[i,1]);
    delay(melody[i,2]);
    nosound;
  end;
end;