program ukol9;

uses crt;

var
   i:integer;
   text:string;
begin
     clrscr;

     write('Zadejte text k vypisu: ');
     readln(text);

     for i:=1 to 80 do write('-'); {oddeleni carou         }
                                   {sirka radky je 80 znaku}
     for i:=1 to length(text) do
      begin
       write(copy(text,i,1)); {vypise vzdy 1 znak z retezce text}
       delay(100);            {prodleva 100 milisekund}
      end;
end.