Записи и множества.Шахматы

Program chess;
 
const
 
 N=2; {количество фигур}
 
type
  
  TPos=record {структура описывает координаты фигуры}
   x:char;
   y:char;
  end;
   
Var
 i:integer;
 Pass:boolean;
 Lx,Ly,Px,Py:char;
 mFPos:Array [1..N] of TPos;
 
 
procedure ReadPos(var aX,aY:char);
{процедура чтения координат фигуры} 
 begin
  repeat
   write('x(a-h): ');
   Readln(aX);
   write('y(1-8): ');
   Readln(aY);
  until (aX in ['a'..'h']) and (aY in ['1'..'8'])
end;
 
function min(X1,X2:char):char;
{функция возвращает минимальный 
  элемент из X1 X2               }
 begin
 if x1<x2 then min:=x1
          else min:=x2;
end;
 
function max(X1,X2:char):char;
{функция возвращает максимальный 
  элемент из X1 X2               }
 begin
 if x1>x2 then max:=x1
          else max:=x2;
end;
 
Begin
{ input }
 Writeln('Введите координаты ',N,' фигур');
 for i:=1 to N  do begin
                   writeln(i,'.Фигура :'); 
                   ReadPos(mFpos[i].x,mFpos[i].y);
                   end;
Writeln('Введите координаты ладьи');
ReadPos(Lx,Ly);
Writeln('Введите координаты свободного поля p');
ReadPos(Px,Py);
{ checking }
 Pass:=TRUE;
{чтобы ладья смогла сходить на указанное поле,
 поле должно лежать на одной вертикали (горизонтали) с фигурой
 и между ними не должно стоять других фигур                    }
 if Lx=Px then
          for i:=1 to N do 
          if Lx=mFpos[i].x then 
          if mFpos[i].y in [min(Ly,Py)..max(Ly,Py)] then begin
                                                         Pass:=FALSE;
                                                         break;
                                                         end;
 if Ly=Py then 
          for i:=1 to N do 
          if Ly=mFpos[i].y then 
          if mFpos[i].x in [min(Lx,Px)..max(Lx,Px)] then begin
                                                         Pass:=FALSE;
                                                         break;
                                                         end; 
 if (ly<>Py) and (lx<>px) then Pass:=FALSE;
{ output }
 Writeln(lx,ly,'-',Px,Py);
 if Pass then write('ход возможен')
         else write('ход невозможен');
End.