Выяснить лежат ли точки на одной прямой. Типизированный файлы(тип запись и файлы) - Pascal ABC

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

Помогите,пожалуйста!!!.Как сделать проргармму через файлы и записи? Вычисление свойств. Дана последовательность (файл) точек плоскости (запись/полярные координаты). Выяснить, лежат ли они ВСЕ на заданной прямой (коэффициенты линейного уравнения) С самим поянтием решения задачи проблем нет. Не поянтно как оформить файлы и записи, дальнейшею работу по чтению данных их них. Так понимаю начало должно быть таким(возможно):

type linia=record;
r:integer; {расстояние от точик до начала координат}
t:0..360; {полярный угол-угловая координта}
end;
var i,k:integer ;
koord: array[1..100] of linia;
f:file of linia;

А как организовать дальнейшую работу?

Решение задачи: «Выяснить лежат ли точки на одной прямой. Типизированный файлы(тип запись и файлы)»

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

type point=record;
           r:integer; {расстояние от точки до начала координат}
           fi:0..360; {полярный угол-угловая координата}
           end;
var n,i,a,b,c,k:integer;
    f:file of point;
    t:point;
begin
//создадим файл точек
assign(f,'tochki');
rewrite(f);
write('Сколько точек записать в файл n=');
readln(n);
for i:=1 to n do
 begin
  write('радиус точки ',i,'r=');
  readln(t.r);
  write('полярный угол точки ',i,'=');
  readln(t.fi);
  write(f,t);
 end;
writeln('Содержание файла точек');
reset(f);
for i:=0 to filesize(f)-1 do
 begin
  read(f,t);
  write(i:2,'(',t.r:4,';',t.fi:4,') ');
  if (i+1)mod 6=0 then writeln;
 end;
writeln;
//выполняем задание
writeln('Введите коэффициенты линейного уравнения a,b,c (или k,b?)');
readln(a,b,c);
reset(f);
k:=0;
i:=0;
while(i<filesize(f))and(k=0)do
 begin
  read(f,t);
  //проверяем условие
  if не выполняется then k:=1
  else inc(i);
 end;
if i=filesize(f) then write('Все точки лежат на данной прямой')
else write('Не все точки лежат на данной прямой');
close(f);
end.

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

Список действий в коде:

Объявление типа записи point для представления точки в пространстве.
Объявление переменных: n, i, a, b, c, k (количество точек, индекс текущей точки, коэффициенты линейного уравнения, счетчик для проверки всех точек).
Открытие файла tochki для записи и чтения.
Запрос на ввод количества точек.
Запись точек в файл tochki.
Вывод содержимого файла tochki.
Выполнение задания: проверка, лежат ли все точки на заданной прямой.
Запрос на ввод коэффициентов линейного уравнения.
Чтение точек из файла tochki и проверка, лежат ли они на заданной прямой.
Если все точки лежат на прямой, выводится сообщение Все точки лежат на данной прямой.
Если есть точка, которая не лежит на прямой, выводится сообщение Не все точки лежат на данной прямой.
Закрытие файла tochki.