Дана программа, нужно сделать в ней проверку (турбо паскаль)

[_4Alex4_]

во входном файле должны быть числа:
1 3 5
1 2 3
2 4 6
1 2 3
1 2 3

надо вставить в программу проверку (то есть если будет ли равно то уравнение со вставленными коэффициентами 1 2 3 уравнению с коэффициентами 2 4 6, и так со всеми числами данными выше)

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

program qq; 
uses crt; 
var 
linecount:integer; 
filename1, filename2: string; 
f1, f2: text; 
a, b, c: integer; 
lines: array[1..1000, 1..3] of integer; 
i: integer; 
dup: boolean; 
begin 
clrscr; 
write ('vhodnoy fail: '); 
readln(filename1); 
assign(f1,filename1); 
reset(f1); 
write('vyhodnoi fail:'); 
readln(filename2); 
assign(f2,filename2); 
rewrite(f2); 
linecount:=0; 
while not eof(f1)do 
begin 
readln(f1,a, b, c); 
if (a<>0) or (b<>0) then 
begin 
dup:=false; 
for i:=1 to linecount do 
begin 
dup:=(lines[1]=a)and 
(lines[2]=b) and (lines[3] = c); 
if dup then 
break; 
end; 
if not dup then 
begin 
linecount:=linecount+1; 
lines[linecount][1]:=a; 
lines[linecount][2]:=b; 
lines[linecount][3]:=c; 
end; 
end; 
end; 
if linecount<3 then 
begin 
writeln('naideno menee 3 linii'); 
end else 
begin 
for i:=1 to linecount do 
writeln(f2, lines[1],'',lines[2],'', lines[3]); 
writeln ('fail sformirovan:', filename2); 
end; 
close(f1); 
close(f2); 
readkey; 
END.

[_4Alex4_]

может кто помочь?

[_4Alex4_]

помогите, пожалуйста!