Встречено 'a', а ожидалось ';' В чем ошибка в 6 строчке?

program jfsdkp;

var s, i, a:integer;

var k:array [0..10] of integer;

begin

for i:=1 to 11 do

write a[k]:=(' введите текст с клавиатуры ');

s:=0;

for k:=1 to 9 do begin

if 2*a[k]
s := s+ a[k];

a[k] :=2*a[k]

end;

end;

Writeln;

for k:=1 to 9 do

write(s);

end.