Дан массив K[1..37] в интервале от 0 до 100. Найти сумму элементов массива, которые являются 2-х значными числами и кратные 3, и заменить их на максимальных

Var
i,sum,max:integer;
K: array [1..37] of integer;
begin
writeln(Введите массив);
for i:=1 to 37 do
read(K[i]);
sum:=0;
max:=0;
for i:=1 to 37 do begin
if maxlt;K[i] then
max:=K[i];
end;
for i:=1 to 37 do begin
if (K[i]gt;9) and (K[i] mod 3=0) then begin
sum:=sum+K[i];
K[i]:=max;
end;
end;
writeln(сумма = ,sum);
writeln(Новый массив);
for i:=1 to 37 do begin
write(K[i], );
end;
end.