Проверить на правильность задачу

[sam5213]

1 - найти 100 первых чисел, в разложении которых на простые множители присутствует ровно два раза число 13, используя подпрограмму, возвращающую true, если число отвечает указанному требованию и false в противном случае.
Данную задачу я решил, но не уверен в правильности, но зато я уверен что есть ошибки, посмотрите :
const N=100000 ;
var a: array [1..N] of integer;
i,k: integer;
p: boolean;
begin
for i:=1 to N do
a[i]:=random(10000);
repeat
if a[i] mod 169 =0 then
begin k:=k+1;
p:=true;
end
else p:=false;
until k=3;
writeln (a[i]);
readln
end.
Еще интересно, но очень интересно как записывается эта задача, вот ее я даже не знаю как решать
с использованием условного оператора)
На координатной плоскости заданы своими координатами две пары точек. Через каждую из этих пар точек можно провести единственную прямую. Составить программу идентификации этих прямых: пересекаются, параллельны, перпендикулярны, совпадают.