[JorJe]

Сообщение от Pilot_Red

а какие моменты не понятны

ну раз вы согласны покопаться в моей куче)
не пойму какие переменные за что отвечают.

Код:

  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;