Помогите перевести на Си program array18; var A: array[1..10]

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

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] gt; A[10] then
begin
K := i;
break;
end;

writeln(A[K]);
end.