[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;

дальше не смотрел