Написать программу вывода на экран анимированного изображения.

var s1,s2 : string;
begin
 writeln('Введите 1 строку');
 readln(s1);
 writeln('Введите 2 строку');
 readln(s2);
 if length(s1)>length(s2) then
  write('1 строка длиннее')
 else if length(s2)>length(s1) then
  write('2 строка длиннее')
 else
  write('Строки одинаковы');
 readln;
end.

uses crt;
var n,i,l:integer;
begin
clrscr;
writeln('число');
readln(n);l:=n;
while n>0 do
begin
i:=i+1;
n:=n div 10;
end;
if l mod 2=0 then write('четное кол-во цифр=',i)
else
write('не четное кол-во цифр=',i);
end.

uses crt,graph;
var g,m,xc,yc:integer;
begin
g:=0;
initgraph(g,m,'');
xc:=getmaxX div 2;
yc:=getmaxY div 2;
setfillstyle(1,15);
bar(xc-100,yc-60,xc+100,yc-20);
setfillstyle(1,9);
bar(xc-100,yc-20,xc+100,yc+20);
setfillstyle(1,12);
bar(xc-100,yc+20,xc+100,yc+60);
readkey;
end.

uses crt,graph;
var x,y,r:integer;
    v,k:char;
procedure Krug(x,y:integer);
var r:integer;
begin
r:=0;
repeat
repeat
r:=r+2;
setcolor(12);
circle(x,y,r);
setfillstyle(1,12);
floodfill(x,y,12);
delay(50);
circle(x,y,r);
setfillstyle(1,0);
floodfill(x,y,0);
until (r>100)or keypressed;
repeat
r:=r-2;
setcolor(12);
circle(x,y,r);
setfillstyle(1,12);
floodfill(x,y,12);
delay(50);
circle(x,y,r);
setfillstyle(1,0);
floodfill(x,y,0);
until (r<5)or keypressed;
until keypressed;
end;
begin
x:=0;
initgraph(x,y,'');
outtextXY(50,20,'Vyhod - Press any key');
x:=getmaxX div 2;
y:=getmaxY div 2;
Krug(x,y);
end.