Как можно ускорить или замедлить gif-анимацию? на этот вопрос нужен ответ*

Открой в нем картинку гиф. потом  он ее преобразовывает в кадры.в нижнем левом углу по умолчанию есть окно анимация.в нем же и выбирается время смены кадров ко всем картинкам или к каждой по отдельности. как-то так.

program nm12;

var a, d : integer;

begin

    writeln (' vvedite diametr kruga i storony kvadrata ');

    readln (d);

    readln (a);

    if d< =a then writeln (' krug pomestits9 v kvadrate ')

              else writeln (' krug ne pomestits9 v kvadrate ');

    readln;

end.

Var       best, m, s,i: integer; begin       best : = 10000000;       for i: = 1 to 3 do begin               write('min sec = ');               readln(m, s);               if best > m * 60 + s then best : = m * 60 + s;       end;             writeln('лучший = ', best div 60, ' min ', best mod 60, ' sec'); end.