Ayudita con delphi. (soy novato)

[Aleix47]

Segun dice ecfisa, vamos a considerar que ''procedure'' es la linea numero 1, y los errores que me da el programa son:

linia 1: ';' expected but '.' found
linia 1: '=' expected but ','found
linia 1: '=' expected but ';' found
linia 1: '=' expected but ')' found
linia 2: expression expected but 'VAR' found
linia 3: '..' expected but ';' found
linia 4: '..' expected but ';' found
linia 13: missing operator or semicolon
linia 17: Declaration expected but identifier 'HallarNumeros' found

He intentado modificar el programa pero me eliminia errores y me añade otros de nuevos por tanto os lo dejo tal qual me lo ha pasado el usuario ecfisa. Haber si podeis resolver los errores.
Gracias de antemano!