что-то у меня не вяжется здесь
помогите найти ошибку
uses crt
const n=10;
type vect=array[1..n] of integer;
var a:vect;
i,j,k,t:integer;
begin
clrscr;
writeln ('vvod massiva');
for i:=1 to n do read (a[i]);
i:=1;
k:=0;
while (i<=n)and(a[i]>=0)and(k<2) do
begin
i:=i+1;
if a[i]<0 then k:=k+1
end;
for j:=k to n-1 do
for i:=k to n-1 do
begin
if a[i]<a[i+1] then
begin
t:=a[i];
a[i]:=a[i+1];
a[i+1]:=t;
end;
end;
writeln ('sortirovka zavershena');
for i:=1 to n do writeln (a[i]);
readkey;
end.