Составьте программу, которая вычисляет среднее арифметическое, чётным значений 2 находящихся в файле tot.txt — Pascal(Паскаль)

uses crt;
var
f:text;
st:integer;
i,k:integer;
 
begin
   clrscr; {очищаем экран}
   assign(f,'c:\tot.txt'); {связываем F с файлом}
reset(f); {открываем файл f}
 
while not eof(f) do {пока не достигнут конец файла}
    begin
    read(f,st); {считываем значение}
       i:=i+1; {включаем счетчик кол-ва компонент}
       if not odd(st) then {если четное место}
       if not odd(i) then
       if st=2 {если встречается 2}
    k:=k+st;{считаем сколько их} end;
writeln('SA ',k/i:1:2); {среднее арифметическое}
   readkey;
   close(f); {закрываем файл}
end.