Сделать проверку ввода трех взаимно простых чисел

if (x<a)and(x>b) then writeln('chislo ne vhodit k danomu diapazonu')
else
 begin
 if x<0 then writeln('chislo x otrizatelnoje')
else writeln('chislo pologitelnoe');
end;

var A,B,C,i: integer; //A,B,C Наши числа. i счетчик циклов
       flag:boolean;
       k:Integer; //Максимальное число
begin
  flag:=false;
  { TODO -oUser -cConsole Main : Insert code here }
  readln(A);
  readln(B);
  readln(C);
 
  if (A>-1) and (B>-1) and (C>-1) then Begin   //Проверка на отрицательность
 
  {Находим максимальное число}
  if (A>B) and (A>C) then k:=a else
  if (B>A) and (B>C) then k:=b else
  if (C>A) and (C>B) then k:=c;
 
  {Поиск общего делителя. Начинаем с деления на 2 и до максимального числа}
   for i:=2 to k do
       if (A mod i=0) and (B mod i = 0) and (C mod i = 0) then  flag:=true;
       {Если каждое деление дало в остатке ноль, обозначаем это флагом}
 
       {Если флагом обозначено нахождение- пишем взаимнопростые, иначе Наоборот}
   if flag then writeln('WzaimnoProstie') else write('Ne wzaimnoprostie');
   end;
 
     readln;
end.