Помогите перевести на Си

program array18;

var
A: array[1..10] of integer;
i, K: integer;

begin
for i := 1 to 10 do
read(A[i]);
for i := 1 to 9 do
if A[i] > A[10] then
begin
K := i;
break;
end;

writeln(A[K]);
end.