Вычислить расстояние между двумя точками с данными координатами на плоскости (x1, у1) и (x2, у2). (программа Паскаль)

var
x1,y1,x2,y2:integer;
a,b,c:real;
begin
write('введите координаты первой точки: ');
readln(x1,y1);
write('введите координаты второй точки: ');
readln(x2,y2);
a:=(x1+x2)/2;
b:=(y1+y2)/2;
if x1>=x2 then x1:=x1-a else x1:=x2-a;
if y1>=y2 then y1:=y1-a else y1:=y2-a;
c:=x1+y1;
write('расстояние между двумя точками (x1, y1) и (x2, y2):',c);
end.