Вычислить длину ломаной, которая получится, последовательно соединив координаты отрезками - Free Pascal

Формулировка задачи:

Вводится последовательность координат, окончание которой координата (0,0). Вычислить длину ломаной, которая получится, последовательно соединив координаты отрезками. Координату (0,0) не брать.

Решение задачи: «Вычислить длину ломаной, которая получится, последовательно соединив координаты отрезками»

Листинг программы

uses crt;
var x,y,x1,y1,s:real;
    i:integer;
begin
clrscr;
writeln('Вводите координаты точек x,y, окончание ввода точка 0 0:');
repeat
writeln('точка 1');
readln(x1,y1);
until(x1<>0)or(y1<>0);
s:=0;
i:=1;
repeat
writeln('точка ',i);
readln(x,y);
if (x<>0)or(y<>0) then
s:=s+sqrt(sqr(x-x1)+sqr(y-y1));
x1:=x;
y1:=y;
until(x=0)or(y=0);
write('Длина ломаной=',s:0:2);
readln
end.

Объяснение кода листинга программы

Используется библиотека CRT для работы с консолью.
Введены следующие переменные: x, y, x1, y1, s (реальные числа), i (целое число).
Пользователю предлагается ввести координаты точек.
Цикл повторяется до тех пор, пока не будут введены координаты точек.
При вводе координат точек, проверяется условие, что они не равны нулю.
Рассчитывается длина отрезка между точками.
Цикл повторяется до тех пор, пока не будут введены координаты точек или условие для остановки цикла не будет выполнено.
Выводится длина ломаной.
Программа ожидает ввода данных с клавиатуры для завершения работы.