Pascal/Turbo Pascal - Escribir un programa en Pascal

Escribir un programa en Pascal que rellene un array con 8 números, algunos de ellos duplicados. Se deberá sustituir cada valor repetido por -5 y mostrar el número de entradas modificadas
Porfavor necesito ayuda con este ejercicio. no tengo que usar procedure. vi videos en el cual lo usaban para sacarlo. pero tengo que hacerlo sin procedure

(*

Armando Fuenmayor
[email protected]

programa en Pascal
que rellene un array con 8 números,
algunos de ellos duplicados.
Se deberá sustituir cada valor repetido por -5
y mostrar el número de entradas modificadas
Porfavor necesito ayuda con este ejercicio.
no tengo que usar procedure.
vi videos en el cual lo usaban para sacarlo. pero tengo que hacerlo sin procedure
*)

uses crt;
const
n = 8;
type
arre = array[1..n]
of integer;
var
con, i , j : integer;
vector : arre;
begin
clrscr;
(*
rellene un array con 8 números,
algunos de ellos duplicados.
*)

for i:=1 to n do
begin
repeat
writeln('ingrese nro ', i);
readln(vector[i]);
until vector[i] > 0;

end;


writeln('vector original');
con := 0;
for i:=1 to n do
begin
write(vector[i]:6);
end;

(* Se deberá sustituir cada valor
repetido por -5 *)
for i:=1 to n-1 do
for j:=i+1 to n do
if (vector[i] = vector[j]) then
begin
vector[j] := -5;
if vector[i] <> -5 then
begin
con := con + 1;
end;
end;

writeln;
writeln;
writeln('vector modificado');
for i:=1 to n do
begin
write(vector[i]:6);
end;
(* mostrar el número de entradas
modificadas *)

writeln;
writeln('Nro de modificaciones: ', con);
end.