задача!!!!

[новичооок]

Прямая на плоскости задается уравнением ax+by+c=0, где a и b одновременно не равны нулю. Будем только прямые, для которых коэффициенты a,b,c – целые числа. Пусть f – файл, содержащий коэффициенты нескольких прямых (не менее трех). Переписать из файла f в файл g коэффициенты тех прямых, которые :
a) параллельны первой из прямых, заданной в файле f,
b) указаны в пункте a), но дополнительно требуется, чтобы все прямые были различны;
c) пересекают первую из прямых, заданных в файле f,
d) указаны в пункте b), но дополнительно требуется, чтобы среди прямых не было параллельных.

program lz03;
uses crt;
type web=record
     a,b,c:integer;
     end;
var
list,list1: web;
f,g: file of web;

     procedure vvod;
     var i:integer;
     begin
     reset(f);
     rewrite(g);
     with list do
     begin
     for i:= 1 to 7 do
     begin a:=random(20);
     b:=random(20);
     c:=random(20);
     write(f,list);
     end;
     end;
     close(f);
     close(g);
     end;

это процедура ввода, а как описать остальные процедуры??

[D@rkD@iver]

сделаю за умеренную плату