Определить расстояние на плоскости между двумя точками с заданными координатами M1(x1,y1) и M2(x2,y2). (программа Паскаль)

program example1;
var x1, x2, y1, y2: Integer;
    d:Real;
begin
    Writeln('Эта программа вычисляет расстояние между двумя точками на плоскости');
    Writeln('Введите координаты двух точек:');
    Write('x1= '); Readln(x1);
    Write('y1= '); Readln(y1);
    Write('x2= '); Readln(x2);
    Write('y2 ='); Readln(y2);
    d:=sqrt(sqr(x2-x1)+sqr(y2-y1));
    Writeln('d= ',d:6:2);
    Writeln('нажмите Enter для завершения работы программы');
    Readln;
end.