Помогите составить листинг программы в паскале Ввести файл F из 11 элементов. Определить в нём количество тех элементов, которые при делении на 3 дают остаток 2.

//Pascal ABC.NET v3.1 сборка 1172 Var  f:text;  i,k,a:integer; begin  assign(f,'text.txt');  reset(f);  for i:=1 to 11 do   begin    read(f,a);    if a mod 3=2 then inc(k);   end;  close(f);  writeln(k); end. Данные в файле text.txt: 1 2 3 4 5 6 7 8 9 10 11 Пример вывода: 4