1) Почему описание процедуры разместилось в разделе описания переменных?
2)
if kp>kc
then writeln('P[i]',P[i]:7:3)
else
begin
if kp+kc
then writeln('kp=',kp)
else writeln('C[i]',C[i]:7:3);
end;

Вывод элементов массива, как и ввод, осуществляется в цикле.