... '); Size:=ImageSize(0,0 ,20 ,20 ); GetMem(Pb,Size); GetImage(0,0 ,20 ,20 ,Pb^); GetMem(Pa,Size); Bar(0,0 ,20 ,20 ); GetImage(0,0 ,20 ,20 ,Pa^); ClearDevice; x:=300; y: =20 0; v:=10; c:=#77; Repeat ... Procedure Copyfile(fi1,fi2: string); Var nread,nbuf: word; buf: array [1 1 024 ] of byte; f1,f2: file; Begin Assign(f1,fi1); Reset(f1,1); Assign(f2,fi2); Rewrite(f2,1); nbuf:=1 024 ; Repeat Blockread(f1,buf,nbuf,nread); ... Repeat c:=ReadKey; Until c in [ #27 ,'+','-']; SetFillStyle(1,0); Bar((GetMaxX-x) div 2, (GetMaxY-y) div 2, (GetMaxX+x) div 2, (GetMaxY+y) div 2) ; If (c='+')and(x<GetMaxX)...