Программа на цикле неверно выводит результаты

[nox7]

var n, i:integer;
k, x1, x2, y1, y2: real;
begin
readln (n);
readln (x1, y1);
for I := 2 to n do
begin
readln (x2, y2);
k := sqrt(sqr(x2 - x1) + sqr(y2 - y1));
x1 := x2;
y1 := y2;
end;
writeln (k : 0 : 3);
readln ;
end.
Это программа для нахождения расстояния между точками по их координатам n-кол-во точек x,y-координаты,как вывести не последнее значение k(расстояние) а все и чтоб они были все в конце ?

[DRAgon™]

не совсем понял,может так?

uses crt;
var n, i:integer;
k, x1, x2, y1, y2: real;
begin
readln (n);
readln (x1, y1);
for I := 2 to n do
begin
readln (x2, y2);
k := sqrt(sqr(x2 - x1) + sqr(y2 - y1));
x1 := x2;
y1 := y2;
end;
writeLn ('END:');
Writeln;
writeln (' x1- ',x1,'  x2- ',x2);
writeln (k : 0 : 3);
readln ;
end.

[DRAgon™]

вот так правильней

uses crt;
var n, i:integer;
k, x1, x2, y1, y2: real;
begin
readln (n);

for I := 1 to n do
begin
readln (x1, y1);
readln (x2, y2);
k := sqrt(sqr(x2 - x1) + sqr(y2 - y1));
x1 := x2;
y1 := y2;
end;
writeLn ('END:');
Writeln;
writeln (' x1- ',x1,'  x2- ',x2);
Writeln;
writeln (' y1- ',y1,'  y2- ',y2);
writeln (k : 0 : 3);
readkey;
end.

[_-Re@l-_]

Может, я неправильно понял, но в цикле то не проще выводить если нужны расстояния между несколькими точками?

uses crt;
var n, i:integer;
k, x1, x2, y1, y2: real;
begin
readln (n);

for I := 1 to n do
begin
readln (x1, y1);
readln (x2, y2);
k := sqrt(sqr(x2 - x1) + sqr(y2 - y1));
writeln (k : 0 : 3);
x1 := x2;
y1 := y2;
end;
readln;
end.

[nox7]

как в предложил _-Re@l-_ подошло,спасибо!!