ну надо ж теперь и себе лабу сделать

lab8.pas

Program lab8;
uses crt;
var f:text;
    x,y,sy:real;
    n:integer;
begin
clrscr;
assign(f,'coor.txt');
rewrite(f);
writeln('Введите в файл координаты точек, окончание ввода х=0 и у=0:');
repeat
   write('x: ');readln(x);
   write(f,' ',x:0:2);
   write('y: ');readln(y);
   write(f,' ',y:0:2);
until(x=0) and (y=0);
close(f);
clrscr;
reset(f);
n:=0;sy:=0;
writeln('Содержание файла:');
while not eof(f) do
begin
   n:=n+1;
   read(f,x);
   read(f,y);
   sy:=sy+y;
   writeln(x:0:2,' ',y:0:2);
end;
writeln;
write('Среднее отклонение от оси ОХ: ',sy/n:0:2);
close(f);
Readkey;
end.