Определить, бьет ли ферзь произвольную фигуру

uses crt;
var v1,v2:char;
    g1,g2:integer;
begin
clrscr;
writeln('Введите координаты ферзя');
repeat
write('Номер вертикали буква от а до h v=');
readln(v1);
until v1 in ['a'..'h'];
repeat
write('Номер горизонтали от 1 до 8 g=');
readln(g1);
until g1 in [1..8];
repeat
writeln('Введите координаты фигуры, не совпадающие с координатами ферзя');
repeat
write('Номер вертикали буква от а до h v=');
readln(v2);
until v2 in ['a'..'h'];
repeat
write('Номер горизонтали от 1 до 8 g=');
readln(g2);
until g2 in [1..8];
until(v1<>v2)or(g1<>g2);
if(v1=v2)or(g1=g2)or(abs(g2-g1)=abs(ord(v1)-ord(v2)))
then write('Бьет')else write('Не бьет');
readln
end.

uses crt;
type pole=record
          ver:char;
          gor:integer;
          end;
var p1,p2:pole;
begin
clrscr;
writeln('Введите координаты ферзя');
repeat
write('Номер вертикали буква от а до h =');
readln(p1.ver);
until p1.ver in ['a'..'h'];
repeat
write('Номер горизонтали от 1 до 8 =');
readln(p1.gor);
until p1.gor in [1..8];
repeat
writeln('Введите координаты фигуры, не совпадающие с координатами ферзя');
repeat
write('Номер вертикали буква от а до h =');
readln(p2.ver);
until p2.ver in ['a'..'h'];
repeat
write('Номер горизонтали от 1 до 8 =');
readln(p2.gor);
until p2.gor in [1..8];
until(p1.ver<>p2.ver)or(p1.gor<>p2.gor);
if(p1.ver=p2.ver)or(p1.gor=p2.gor)or(abs(p2.gor-p1.gor)=abs(ord(p1.ver)-ord(p2.ver)))
then write('Бьет')else write('Не бьет');
readln
end.