Free pascalban while ciklussal, hogy lehet meghatározni hogy a rendezetlen lineáris tömbben van-e olyan szám ami egynél többször fordul elő?

Néha biztosan működik. Csak itt sincs sehol inicializálva sehol a vanbenne pl, így ha nem talál a program két egyforma elemet, akkor bármi lehet a végeredmény.

Valamint ez is meglehetősen felesleges.

i:=1;

for i:=1 to 10 do

Elegánsabb lenne két while ciklussal és egy logikai feltétellel, hogy ha már a második elem ugyanaz, mint az első, ne menjünk végig 10szer a tömbön.