не работает программа в pascal

program namqqq;

const n=10;

var a:array [0..n] of integer;

i,k,t:integer;

begin

a[0]:=a[1];

writeln ('введите значения эл-ов');

for i:= 1 to n do

read (a[i]);

for i:= t to n-1 do begin

k:=a[i];

if a[i]>a[i+1] then begin

a[i]:=a[i+1];

a[i+1]:=k;

t:=i-1;

end;

else

t:=t+1;

end;

writeln;

for i:= 1 to n do

write (' ',a[i]);

end.

пишет : встречено else,а ожидался оператор. В чём проблема?