Ошибку сделал где,исправить надо

[Азамат32664]

найдите ошибки

const n=10;
var a:array[1..n] of integer;
i,s,k:integer;
begin
write('k=');
readln(k);
writeln('Исходный массив: ');
for i:=1 to n do begin
a[i]:=random(101)-50;
write(a[i],' ');
end;
writeln;
for i:=1 to k do begin
if a[i] mod 2<>0 then s:=s+a[i];
end;
write('Сумма= ',s)
end.