create or alter procedure PRC
as
declare variable A_T2 integer;
declare variable ID_T1 integer;
declare variable i integer;
begin
  i = 0;
  --Сортируем по id
  for select a from t2 order by id into :a_t2 do
  begin
     -- c помощью skip берем id из нужной строки
     select first 1 skip (:i) id from t1 order by id into :id_t1;

     -- Обновляем :-)
     update t1 set t1.a = :a_t2 where t1.id = :id_t1;
     i = i+1;
  end
end

Запрос автора 
Время работы 1 мин 30 сек
Кол-во чтений T1    49 995 000
Кол-во чтений T2    50 005 000 


Процедура с for select и поиском id по skip (см мой пост выше)
Время работы          37 сек
Кол-во чтений T1   50 015 000
Кол-во чтений T2       10 000


(в FB 2.0 и выше)
Процедура с for select по одной таблице и declare cursor по второй таблице
Время работы  265  мс 
Кол-во чтений T1       20 000
Кол-во чтений T2       10 000

Время работы  9 с
Кол-во чтений T1       20 000
Кол-во чтений T2       30 000