[PASCAL] Scrivere carattere per carattere

[$$$]

  begin

    for i:=1 to Length( stringa ) do
    begin
      Write( stringa[i] );
      Delay( 1000 );
    end;

  end.