Определить наименьший элемент массива с и его номер массив (10) ограничения с < 0

На паскале. 
var C: array[1..10] of integer;
i,k,m: integer;
begin
for i:=1 to 10 do readln(C[i]);
m:=C[1]; k:=1;
for i:=2 to 10 do 
if C[i]<m then begin m:=C[i]; k:=i; end;
writeln('Наименьший элемент ',m,', его индекс ', k); 
readln
end.