ошибка

const k=4;
  a:array[1..k,1..3] of string =(
  ('car.wmf','money.wmf','bomb.wmf),
  ('coins.wmf','clock.wmf','tennis.wmf'),
  ('brick.wmf','bulding.wmf','champagne'),
  ('dice.wmf','donkey.wmf','door.wmf));
  b:array[1..k,1..3] of string=(
  ('money','car','bomb'),
  ('tennis','clock','coins'),
  ('building','champagne','brick'),
  ('dice','door','donkey'));
  check:array[1..k,1..3] of integer=(
  (2,1,3),
  (3,2,1),
  (3,1,2),
  (1,3,2);

const k=4;
a:array[1..k,1..3] of string =(
('car.wmf','money.wmf','bomb.wmf'),
('coins.wmf','clock.wmf','tennis.wmf'),
('brick.wmf','bulding.wmf','champagne'),
('dice.wmf','donkey.wmf','door.wmf'));
b:array[1..k,1..3] of string=(
('money','car','bomb'),
('tennis','clock','coins'),
('building','champagne','brick'),
('dice','door','donkey'));
check:array[1..k,1..3] of integer=(
(2,1,3),
(3,2,1),
(3,1,2),
(1,3,2));