Задача. Бегущая строка Опции

[b0r1and]

Пмогите пожалуйста написать программу.
Бегущая строка. Прямое и обратное направление. Оформить интерфейс. Диалог выбора.
Вот что есть

uses crt;
var str, str2: string;
i,k:byte;
Begin
clrscr;
str:=' Hello ';
k:=80-length(str);  
for i:=1 to k-1 do
str:=str+' ';
repeat
delete(str,1,1);
gotoxy(1,10); 
write(str);
delay(4000);   
delline;
str2:=copy(str,1,1);
str:=str+str2;
until keypressed;
end.

Сообщение отредактировано: volvo - 28.05.2005 13:45