Концы отрезка на плоскости имеют целочисленные координаты. Требуется написать программу, которая вычислит, сколько всего точек с целочисленными коорд

var
  n,x1,y1,x2,y2,k,i: integer;
  y: real;
begin
  write('vvedite koordinati 1-i tochki: ');
  readln(x1,y1);
  write('vvedite koordinati 2-i tochki: ');
  readln(x2,y2);
 
  i:=x1;
  while i<x2 do
  begin
    inc(i);
    y:=((i-x1)*(y2-y1))/(x2-x1)-y1;
    if frac(y)=0 then inc(k);
  end;
  writeln(k-1,' tochek s celochislennimi koordinatami');
  readln;
end.

uses crt;
const t=10e-10;
var x1,y1,x2,y2,x,y,kol:integer;
    k,b:real;
begin
clrscr;
writeln('Введите координаты начала отрезка, целые числа');
readln(x1,y1);
writeln('Введите координаты конца отрезка, целые числа');
readln(x2,y2);
if(x1=x2)and(y1=y2) then k:=1 {если отрезок вырожденный}
else if x1=x2 then kol:=abs(y2-y1)+1{если горизонтальный}
else if y1=y2 then kol:=abs(x2-x1)+1{если вертикальный}
else {иначе}
 begin
  if x1>x2 then{определим начало и конец по оси Х}
   begin
    x:=x1;
    x1:=x2;
    x2:=x;
   end;
  kol:=0;{количество точек с целыми координатами}
  {определим коэффициенты уравнения прямой y=kx+b}
  k:=(y2-y1)/(x2-x1);
  b:=y2+x2*k;
  {проверим все точки по Х}
  for x:=x1 to x2 do
  {если вычисленное значение дробной части практически=0, то целое}
  if abs(frac(k*x+b))<t then kol:=kol+1;
 end;
write('Количество точек с целыми коoрдинатами=',kol);
readln
end.