В полученном векторе вычислите сумму квадратов всех элементов за исключением элементов, кратных пяти

uses crt;
var ax,c:array [1..100]of integer;
a,n,m,i,j,k,sum:integer;
procedure sortRazdelenie(l,r:integer);
var
i,j,x1,y1,mm: integer;
begin
i:=l;
j:=r;
mm:=round ((l+r)/2);
x1:=ax[mm];
repeat
while ax[i]<x1 do inc(i);
while ax[j]>x1 do dec(j);
if i<=j then
begin
y1:=ax[i];
ax[i]:=ax[j];
ax[j]:=y1;
inc(i);
dec(j);
end;
until i>j;
if l<j then sortRazdelenie(l,j);
if i<r then sortRazdelenie(i,r);
end;
begin
clrscr;
randomize;
write('Vvedite n=');readln(n);
write('Vvedite k=');readln(k);
writeln('Ishodnii massiv A:');
for i:=1 to n do
begin
ax[i]:=random(50)-10;
write(ax[i]:4);
end;
writeln;
writeln('Massiv C:');
for i:=1 to k do
begin
c[i]:=random(50)-10;
write(c[i]:4);
end;
writeln;
for i:=1 to k do
begin
n:=n+1;
ax[n]:=c[i];
end;
writeln('Obedenennii masssiv:');
for i:=1 to n do
write(ax[i]:4);
writeln;
sortRazdelenie(1,n);
writeln('Massiv posle sortirovki:');
for i:=1 to n do
write(ax[i]:4);
writeln;
for i:=1 to n do
if (ax[i] mod 5)<>0 then
sum:=sqr(ax[i])+sum;
writeln('Summa kvadratov elementov ne kratnih 5:',sum);
end.