como renumerar campo chave primaria no IBexpert?

Pessoal,

Fiz a migração de um banco paradox para firebird 2.1, observei que a sequencia numerica tinha falhas, como devo fazer para renumerar o campo?
usei este código mas dá erro porque o campo é chave primária:

procedure TFrmPrincipal.BitBtn2Click(Sender: TObject);
var I: Integer;
begin
I := 1;
Qrytaluno.First;
while not Qrytaluno.Eof do
begin
DmDados.IBQryAluno.Close;
DmDados.IBQryAluno.Open;
DmDados.IBQryAluno.Edit;
DmDados.IBQryAluno.FieldByName('MATRICULA').asInteger := I;
DmDados.IBQryAluno.Next;
Inc(I);
DmDados.IBQryAluno.Post;

end;