добрый день на паскале

[ddeman666]

Слева окна находится слово «Добрый», справа на той же строке – слово «день». Слова начигают сближаться, а дойдя друг до друга – удаляться. Колебания происходят до нажатия любой клавиши.

[Grag]

Уже ведь было такое... Что, так и не сделали?

[ddeman666]

не смог, что поделаешь.

[Stilet]

Могу предложить из анналов студентства такое:

uses crt;
var s:string;i:integer;b:boolean;
begin
 s:='Good Day';
 i:=pos(' ',s);
 clrscr;
 while length(s)<80-length(s) do insert(' ',s,i);
 write(s);
 b:=true;
 repeat
  if b then begin
   if pos('G',s)>15 then b:=false;
   delete(s,length(s) div 2,2);
   insert(' ',s,1);
   insert(' ',s,length(s)+1);
   gotoxy(1,1);
   write(s);
  end else begin
   if pos('G',s)=1 then b:=true;
   delete(s,length(s),1);
   delete(s,1,1);
   insert('  ',s,length(s) div 2);
   gotoxy(1,1);
   write(s);
  end;
   delay(50);
 until keypressed;
end.

Там баг маленький, исправить придется.