ЧТО Здесь НЕ ТАК .И ЕСЛИ НЕ Трудно ИСПРАВЬТЕ 90 Пиров

ЧТО Здесь НЕ ТАК .И ЕСЛИ НЕ Трудно ИСПРАВЬТЕ 90 Раутов ЗА ОТВЕТ!!!
var
a: array [1..20] of integer;
i,j,k:integer
begin
for i:=1 to 20 do
begin
read(a[i]);
end;
j:=0;
k:=0;
for i: 1 to 20 do if a[i] mod3=0 then j:=j+1 or a[i+1] mod3=0 then j:=j+1;
k:=a[i];
a[i]:=a[i+1];
a[i+1]:=k
wrineln [j];
end