проверьте текст программы

[V1rus.25]

Посмотрите что с текстом не то, считает не понятные числа!!!
Условие такое :"Скласти програму обчислення величини "Cуми елементів масиву А, значення яких кратні 4" з використанням файлів для введення-виведення даних".

program lb;
uses Crt;
type
  vector=array[1..20] of integer;
var
  T:file of integer;
  i,count:integer;
  A:vector;
begin
  assign(T,'C:\input.dat');
  reset(T);
  i:=1;
  count:=0;
  while not(EOF(T)) do
    begin
      read(T,A[i]);
      if (a[i] mod 4=0) then
        count:=count+a[i];
      inc(i);
    end;
  writeln('Summe der Elemente sind Vielfache von vier: ',count);
  close (T);
  assign (T,'C:\output.dat');
  rewrite(T);
  write(T,count);
  close (T);
  readln;
end.

Может я что-то не то написал или сделал???
Буду благодарен за редактирование текста!!!

[V1rus.25]

Неужели не кто не может проверить текст???

[Noor]

Сообщение от V1rus.25

Неужели не кто не может проверить текст???

Задание переводите на русский язык, мы находимся на флруме ru
Относительно "проблемы"

T:Text;

[V1rus.25]

Условие такое :"Составить программу вычисления величины "Cуммы элементов массива А, значения которых кратные 4" с использованием файлов для ввода-вывода данных".

program lb;
uses Crt;
type
  vector=array[1..20] of integer;
var
  T:file of integer;
  i,count:integer;
  A:vector;
begin
  assign(T,'C:\input.dat');
  reset(T);
  i:=1;
  count:=0;
  while not(EOF(T)) do
    begin
      read(T,A[i]);
      if (a[i] mod 4=0) then
        count:=count+a[i];
      inc(i);
    end;
  writeln('Summe der Elemente sind Vielfache von vier: ',count);
  close (T);
  assign (T,'C:\output.dat');
  rewrite(T);
  write(T,count);
  close (T);
  readln;
end.

[Noor]

Ну я же ответил в предыдущем посте. Вы меняли тип переменной ?

[Ольга 89]

Сообщение от Noor

Ну я же ответил в предыдущем посте. Вы меняли тип переменной ?

Разве это что-то даст?

[Noor]

Сообщение от Ольга 89

Разве это что-то даст?

В файле
1
4
8
3
12
16
11
40

[V1rus.25]

У меня паскаль не АВС а TURBO PASCAL 7.0
Может как-то перевести?

[Noor]

Да Вы хоть попробуйте проверить работу подсказанных изменений !!!! Что за народ пошел, все в готовой виде подавай.