[angvelem]

Код:

  i,
  a,
  o,
  xcor,ycor,
  x1,y1,x2,y2,x3,y3,
  z,
  v,
  x0,y0,x4,y4,
  xcor0,ycor0,
  king                     :integer;				// что то связанное с тем какой файл сохранять,
								//  но исполнение идиотское
  coordinate               :array [1..30000] of byte;		// значение игровой ячейки (???)
  x_tg, y_tg, x_tg2, y_tg2 :array [1..50,1..12] of integer;	// координаты игрового поля
  p,t                      :textfile;				// переменные для текстового файла
  ch                       :char;				// читаем шифрованный байт из файла
  stroka                   :string;				// строка для чтения числового значения
  rang                     :boolean;

Уф, ищешь, ищешь.

если дело упирается в переделку под себя, то можно и не успеть.