Имеется задание и код, немножко отличающийся от подходящего по заданию. Нужно

Имеется задание и код, немножко отличающийся от подходящего по заданию. Нужно отредактировать код.
Задание:
В поле ввода edtVvod вводится строчка. Нужно дописать процедуру обработки нажатия кнопки btnRun, которая выведет в надпись lblVyvod среднеарифметическое встретившихся четных цифр, стоящих на нечетных позициях во введённой строке, если таких нет, то результат 0.

(Вы обязаны написать только текст, который обязан быть вставлен вместо многоточия)



procedure TForm1.btnRunClick(Sender: TObject);

var s:string; sum,x,i,k,c:integer; sa:real;

begin

s:=edtVvod.Text;

...
lblVyvod.Caption:=FloatToStr(sa);

end;

Код:
sum:=0;
c:=0;
sa:=10;
for i:=1 to length(s) do
begin
val(s[i],x,k);
if (k=0) and (x mod 10lt;gt;0) and (xgt;sum) then sum:=x;


if (k=0) and (x mod 10lt;gt;0) and (x c:=c+1;


end;
if clt;gt;0 then sa:=sum/sa else sa:=0;