Разделение отрезка на Д. координатах на N равных частей

uses crt;
var
x1, y1, c, x2, y2:Real;
f, g:integer;
Begin
writeln('Введите координаты отрезка-');
write('x1='); readln(x1);
write('y1='); readln(y1);
write('x2='); readln(x2);
write('y2='); readln(y2);
write('На сколько кусочков-');
readln(f);
for g:= 1 to (f-1) do
 begin
 write('Точка №',g,'(');
 write(((x1*g)+(x2*(f-g)))/f);
 write(',');
 write(((y1*(f-g))+(y2*g))/f);
 writeln(')');
 end;
end.