Подскажите как исправить программу или сами исправьте ошибки.
Условие Составить процедуру, заменяющую все элементы одномерного массива, меньшие значения величины Т, на значение этой величины и считающую число таких замен k.

Используя эту процедуру, изменить каждый из двух заданных массивов P и С и вывести на печать тот массив , в котором окажется больше число замен. Если же эти числа замен будут равны, вывести число замен.
Программа

Program V;
type massiv=array[1..10] of real;
Procedure prim(Var X:massiv;Var k,N:integer;Var TT:real);
Var i:integer;
begin
k:=0;
for i:=1 to N do
begin
if X[i]<TT
then
begin
X[i]:=TT;
k:=k+1;
end;
end;
end;

Var
P:massiv;
C:massiv;
i,n,kp,kc:integer;
T:real;

begin
write('vv n,T');
readln(n,T');

for i:=1 to n do
begin
write('vv P[',i,']);
readln(P[i]);
end;

for i:=1 to n do
begin
write('vv C[',i,']);
readln(C[i]);
end;

prim(P,kp,n,T);
prim(C,kc,n,T);

if kp>kc
then
begin
for i:=1 to n do
writeln('P[i]',P[i]:7:3)
end
else
begin
if kp=kc
then writeln('kp=',kp)
else
begin
for i:=1 to n do
writeln('C[i]',C[i]:7:3);
end;
end;
end.