Слегка переделать программу

 uses crt; 
 var a: string; 
 i, k: integer;
Begin 
 clrscr;
 a:='Л И П А';
 k:=0;
 for i:=1 to 10 do
 begin
 gotoxy(7+i,2+i);
 delete(a,9-k,2);
 write(a);k:=k+2
 end;
 readkey;
End.

uses crt; 
 var a: string; 
 i, k: integer;
Begin 
 clrscr;
 a:='Л И П А';
 k:=0;
 for i:=1 to 10 do
 begin
 gotoxy(7+i,2+i);
 delete(a,9-k,2);
 write(a);k:=k+2;
 end;
 readkey;
End.

uses crt; 
 var a: string; 
 i, k: integer;
Begin 
 clrscr;
 a:='Л И П А';
 k:=0;
 for i:=10 downto 1 do
 begin
 gotoxy(7+i,2+i);
 delete(a,9-k,2);
 write(a);k:=k+2
 end;
 readkey;
End.

uses crt; 
 var a: string; 
 i, k: integer;
Begin 
 clrscr;
 a:='Л И П А';
 k:=10;
 writeln(a);
 for i:=1 to 10 do
 begin
 delete(a,k-9,1);
 writeln(a);k:=k+1
 end;
 readkey;
End.

uses crt; 
 var a,buf: string; 
 i, k,c: integer;
Begin 
 clrscr;
 a:='ЛИПКА';
 buf:=a;
 k:=0;
 c:=1;
 writeln(a);
for i:=1 to 1 do begin
 delete(a,5-k,1);
 delete(a,c,1);
 writeln(a);k:=k+1;c:=c+1;
 end;
 for i:=1 to 1 do begin
 writeln(buf[3]);
 end;
 readkey;
End.